Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1506 1695 (N47W32 L=259)  1512    154        3 (1429/1653-1571/1735)   0.0 W23-W38 N43-N50
      2  658 1584 (N25E33 L=194)   683    138        0 ( 636/1523- 676/1646) -58.0 E36-E29 N20-N29
      3  393 1531 (N20E53 L=174)   892    156        1 ( 368/1462- 413/1609) -55.0 E57-E48 N15-N25
      4 1371 1396 (N21W17 L=245)  1507    392        0 (1198/1276-1496/1486) -20.9 W05-W26 N15-N25
      5  711 1426 (N15E25 L=203)   379     50        1 ( 678/1401- 745/1444)  26.6 E26-E22 N13-N16
      6 1866 1282 (N23W62 L=289)  1093    120        6 (1841/1245-1890/1340)  80.5 W57-W66 N20-N27
      7 1771 1272 (N20W50 L=277)   481     50        1 (1746/1243-1791/1300)  76.0 W47-W52 N18-N22
      8  182 1255 (N01E66 L=162)   545     56        2 ( 158/1228- 210/1281) -45.0 E69-E62 N00-N03
      9  492 1036 (S10E34 L=193)   239     51        0 ( 467/1004- 517/1058)  53.1 E35-E32 S12-S08
     10  898  853 (S17E06 L=222)   405    185        0 ( 821/ 831- 988/ 882)  21.8 E10-W00 S19-S14
     11  313  842 (S23E49 L=178)   597    123        1 ( 262/ 821- 369/ 863)   0.0 E53-E43 S24-S21
     12  644  684 (S31E22 L=205)   565     98        1 ( 603/ 643- 688/ 728)  45.0 E25-E18 S33-S27
     13 1505  547 (S27W42 L=269)  2614    470        1 (1322/ 435-1690/ 678)  45.0 W31-W52 S37-S16
     14 1426  356 (S41W47 L=274)   340     63        0 (1398/ 328-1449/ 384)  90.0 W45-W48 S43-S38
  

    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