Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1754 1356 (N17W54 L=277)  1486    295        1 (1665/1239-1836/1467) -51.8 W47-W60 N10-N24
      2 1516 1322 (N15W33 L=255)   261     77        0 (1482/1299-1555/1347) -31.0 W30-W35 N13-N16
      3  310 1272 (N14E50 L=173)   637    136        1 ( 256/1241- 381/1288)   0.0 E55-E43 N12-N15
      4  201 1146 (N07E60 L=163)   631     75        1 ( 176/1116- 218/1190) -53.1 E62-E57 N05-N09
      5  115 1115 (N06E72 L=150)   887     60        3 (  95/1087- 133/1143)  71.6 E77-E68 N04-N07
      6  442 1053 (N00E37 L=185)   274     54        0 ( 425/1026- 461/1084) -56.3 E38-E35 S01-N02
      7  153 1017 (S00E66 L=157)   985     87        1 ( 131/ 974- 174/1060)  38.7 E69-E62 S02-N02
      8  486  802 (S15E36 L=187)  1056    283        1 ( 462/ 664- 517/ 930)  76.0 E39-E33 S23-S07
      9 1039  862 (S13W01 L=223)   242     87        1 ( 996/ 837-1066/ 892) -45.0 E01-W02 S14-S10
     10 1837  847 (S13W60 L=283)   396     35        2 (1812/ 826-1855/ 866) -11.3 W57-W62 S14-S12
     11 1013  793 (S17E01 L=222)   306    142        0 ( 949/ 777-1074/ 828) -18.4 E04-W02 S17-S14
     12 1687  555 (S32W54 L=276)   732    133        0 (1651/ 507-1742/ 608)  54.5 W50-W57 S35-S28
     13 1548  457 (S39W43 L=266)  1197    214        2 (1440/ 429-1641/ 484)   2.7 W32-W53 S41-S37
  

    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