Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  230 1242 (N37E54 L=338)   417    122        0 ( 196/1224- 265/1257) -23.2 E57-E50 N35-N38
      2 1204 1122 (N08W13 L= 45)  1192    378        6 (1097/ 968-1263/1216)  63.4 W05-W16 N00-N15
      3 1865 1085 (S14W59 L= 92)  1697    305        3 (1822/ 979-1893/1208)  38.2 W52-W67 S19-S08
      4 1801 1088 (S11W52 L= 85)   362     58        2 (1782/1058-1817/1120)  56.3 W50-W54 S12-S09
      5  394  859 (N11E44 L=348)  1385    438        7 ( 344/ 740- 449/ 983)  82.9 E49-E38 N03-N19
      6  176  869 (N15E65 L=327)   659    128        2 ( 152/ 821- 204/ 914) -63.4 E67-E63 N11-N17
      7 1717  863 (S21W40 L= 72)   345     49        2 (1701/ 832-1735/ 891)  76.0 W38-W41 S23-S19
      8 1823  806 (S29W49 L= 82)  1249    198        3 (1758/ 738-1858/ 873)  24.4 W42-W53 S31-S25
      9  938  656 (S12E14 L= 18)   476    126        0 ( 907/ 602- 965/ 723)  45.0 E17-E11 S14-S08
     10 1551  557 (S36W23 L= 55)   541     77        1 (1517/ 522-1581/ 598)  26.6 W19-W25 S38-S33
     11 1423  480 (S37W11 L= 43)   363     95        1 (1392/ 463-1469/ 507) -38.7 W09-W14 S39-S35
     12  378  460 (S13E62 L=330)   973    125        2 ( 350/ 428- 417/ 491) -78.7 E65-E57 S15-S10
     13  461  338 (S23E62 L=330)   751    222        1 ( 432/ 306- 498/ 359)  10.3 E68-E57 S25-S21
  

    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