Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  745 1622 (N21E34 L=309)   265     16        0 ( 726/1603- 766/1639)  71.6 E35-E32 N19-N22
      2  505 1548 (N11E47 L=296)   822    227        3 ( 459/1470- 535/1614) -30.3 E53-E41 N06-N14
      3 1842 1320 (N35W50 L= 34)   656    142        1 (1808/1296-1876/1343)  20.6 W46-W54 N33-N37
      4  352 1118 (S17E45 L=298)   520    177        1 ( 286/1072- 415/1177)  45.0 E49-E41 S20-S12
      5  209 1119 (S19E58 L=285)   925    245        0 ( 144/1069- 265/1162) -14.9 E66-E51 S21-S16
      6  889 1046 (S09E08 L=335)   481    131        0 ( 848/ 974- 933/1098)  77.5 E09-E06 S14-S05
      7  416 1048 (S20E38 L=305)   625    167        1 ( 348/1032- 492/1066)  15.3 E43-E32 S21-S18
      8 1885  899 (N12W63 L= 46)  2342    451        7 (1836/ 830-1936/ 965) -22.6 W56-W71 N07-N15
      9  293  821 (S36E46 L=297)   405    110        0 ( 248/ 799- 339/ 840)   0.0 E50-E41 S36-S34
     10  333  606 (S49E44 L=299)   457    163        0 ( 292/ 581- 374/ 642)  35.0 E49-E39 S52-S45
     11 1556  583 (S16W46 L= 30)   611    123        1 (1538/ 519-1571/ 641) -60.3 W43-W49 S19-S12
     12 1264  490 (S30W32 L= 15)  2383    322        3 ( 981/ 432-1541/ 561)  16.7 W11-W51 S35-S21
     13 1645  481 (S18W59 L= 42)   530    104        1 (1610/ 455-1674/ 506)   8.1 W54-W61 S19-S16
  

    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