Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1118 1843 (N49E24 L= 94)   439     67        0 (1079/1831-1151/1856)  31.0 E26-E21 N46-N51
      2  939 1638 (N27E23 L= 95)  1481    359        4 ( 898/1497-1005/1788) -53.1 E32-E14 N17-N37
      3  579 1739 (N25E54 L= 63)   590     98        0 ( 541/1706- 617/1766) -14.0 E60-E48 N23-N26
      4  355 1561 (N10E62 L= 55)  2427    372        7 ( 280/1475- 416/1656) -65.2 E70-E54 N03-N16
      5  522 1568 (N13E47 L= 70)   394    137        0 ( 502/1503- 556/1622) -69.4 E48-E44 N08-N16
      6 1360 1414 (N24W10 L=127)   865    218        1 (1323/1310-1385/1506) -57.5 W05-W12 N17-N29
      7 1684 1443 (N37W34 L=152)   514    112        0 (1640/1410-1729/1484)  -5.7 W29-W39 N36-N39
      8  540 1391 (N02E38 L= 79)   594    166        4 ( 486/1359- 621/1432)  11.3 E43-E33 N00-N05
      9  550 1271 (S04E34 L= 84)   246     83        0 ( 512/1242- 591/1291)   0.0 E37-E30 S05-S03
     10 1678  951 (N07W41 L=159)   264     85        3 (1660/ 920-1694/ 989) -36.9 W39-W43 N05-N08
     11  709  737 (S31E12 L=106)   296     73        1 ( 669/ 720- 749/ 758)  21.8 E14-E09 S32-S30
     12  842  588 (S37W01 L=119)  1026    379        2 ( 663/ 567-1014/ 617)  30.6 E11-W11 S43-S30
     13 1116  483 (S35W23 L=141)   927    257        3 (1066/ 417-1209/ 590) -17.4 W15-W31 S38-S30
     14 1577  410 (S24W60 L=178)   437    111        0 (1546/ 388-1626/ 445)  29.7 W56-W65 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