Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  595 1623 (N35E35 L=260)  2319    296        3 ( 483/1532- 716/1709) -25.8 E51-E22 N28-N42
      2  318 1432 (N22E54 L=241)   586     87        2 ( 296/1390- 347/1472)  90.0 E56-E51 N19-N25
      3 1145 1448 (N23W07 L=302)   299     76        0 (1107/1423-1180/1467) -21.8 W04-W09 N21-N24
      4 1803 1362 (N20W60 L=355)  1817    196        5 (1749/1292-1879/1414) -14.0 W54-W71 N15-N23
      5  371 1135 (N03E44 L=251)   548     77        2 ( 335/1103- 402/1169)  36.9 E46-E41 N01-N05
      6 1716 1089 (N02W46 L=341)  1266    202        3 (1652/1027-1781/1151)  35.0 W41-W52 S01-N06
      7  182  939 (S08E63 L=232)   863    108        5 ( 147/ 905- 214/ 976)  16.7 E68-E58 S09-S05
      8  425  922 (S10E40 L=255)   394     67        0 ( 391/ 890- 458/ 950) -31.0 E42-E37 S11-S07
      9  189  754 (S19E67 L=228)  5555    197        6 ( 135/ 670- 243/ 839)  50.7 E80-E59 S24-S13
     10 1718  643 (S25W54 L=349)   337     47        0 (1693/ 624-1741/ 663)   0.0 W51-W57 S25-S23
     11  456  584 (S31E43 L=252)  1108    129        0 ( 413/ 525- 487/ 651)  38.7 E49-E38 S34-S26
     12  302  563 (S32E62 L=233)  1052    127        0 ( 257/ 514- 344/ 599)  13.4 E75-E54 S34-S29
     13 1162  232 (S59W18 L=313)  3663    387        9 ( 969/ 198-1332/ 279)   5.2 E05-W42 S63-S54
  

    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