Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  651 1592 (N47E24 L=279)   332     59        1 ( 617/1576- 679/1613)  -9.5 E27-E21 N45-N48
      2 1159 1479 (N32W16 L=320)  1118    307        2 (1023/1425-1290/1523) -27.9 W06-W23 N27-N36
      3 1693 1468 (N23W59 L=  3)   489    112        0 (1644/1440-1739/1494) -35.5 W54-W62 N20-N25
      4  597 1287 (N26E26 L=278)   286    106        1 ( 548/1275- 652/1299) -14.0 E30-E22 N24-N27
      5  708 1173 (N18E19 L=285)   312    107        2 ( 661/1141- 745/1208)   9.5 E21-E15 N16-N20
      6  399 1148 (N19E42 L=262)   254     38        1 ( 381/1127- 418/1173) -56.3 E43-E40 N17-N20
      7  372 1111 (N17E44 L=260)   259     42        3 ( 348/1094- 393/1130)   0.0 E46-E42 N15-N17
      8 1490 1000 (S02W29 L=333)   214     94        0 (1452/ 971-1525/1037) -45.0 W26-W31 S03-N01
      9 1910  959 (S12W70 L= 14)   991     98        4 (1882/ 913-1935/1006) -54.5 W64-W75 S15-S08
     10 1762  785 (S20W51 L=355)  4079    592        8 (1657/ 559-1871/ 990)  57.4 W42-W63 S33-S08
     11 1705  830 (S16W45 L=348)   721    261        0 (1632/ 741-1771/ 925)  39.8 W38-W51 S20-S10
     12 1366  809 (S12W19 L=323)  1126    245        5 (1319/ 696-1409/ 890)  80.5 W15-W21 S18-S06
     13 1521  846 (S12W30 L=334)   400    124        1 (1472/ 800-1553/ 876) -38.7 W26-W32 S14-S09
     14 1472  723 (S19W26 L=330)   409    162        1 (1418/ 667-1528/ 755)  26.6 W21-W29 S21-S16
     15  837  693 (S13E16 L=288)   359    105        1 ( 791/ 672- 883/ 716) -33.7 E18-E12 S14-S10
     16  794  534 (S23E21 L=282)  1463    385        2 ( 732/ 441- 915/ 674)  86.4 E25-E14 S29-S13
     17  400  530 (S20E53 L=251)   503    119        2 ( 355/ 503- 435/ 556) -26.6 E57-E48 S22-S18
     18  603  441 (S28E39 L=265)   619    127        3 ( 580/ 380- 630/ 497)  52.1 E43-E34 S32-S23
     19 1594  447 (S42W40 L=344)   363     45        0 (1576/ 423-1612/ 471) -38.7 W37-W43 S43-S39
     20 1581  380 (S48W43 L=347)  1155    107        2 (1527/ 350-1620/ 405)  -4.8 W35-W50 S51-S44
     21 1036  311 (S43E10 L=294)   546     60        1 (1010/ 286-1065/ 340)  38.7 E12-E07 S45-S40
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y