Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1185 1709 (N39E12 L=100)  1159    257        5 (1123/1622-1287/1783)  77.5 E14-E07 N30-N48
      2 1628 1462 (N37W28 L=140)   327     41        1 (1609/1438-1645/1491)  90.0 W25-W29 N35-N39
      3 1575 1273 (N22W26 L=138)   279     72        1 (1555/1236-1596/1309)  90.0 W25-W27 N20-N25
      4 1796 1190 (N25W46 L=158)   748    189        3 (1767/1121-1828/1276) -41.2 W42-W50 N21-N30
      5 1180 1234 (N08W03 L=115)   403    110        1 (1136/1202-1239/1258)  45.0 W00-W05 N05-N11
      6  121 1143 (S19E73 L= 39)  1040     77        2 (  79/1119- 156/1165)   6.0 E86-E67 S20-S17
      7  736 1053 (S13E17 L= 95)   253     90        1 ( 703/1020- 759/1102) -26.6 E20-E14 S14-S10
      8 1810  954 (N12W52 L=164)   888    144        6 (1785/ 893-1840/1020) -50.2 W48-W56 N09-N15
      9  661  961 (S19E19 L= 93)   251     99        0 ( 611/ 949- 716/ 973)  15.9 E22-E15 S21-S18
     10 1858  866 (N10W60 L=172)   793     74        1 (1823/ 828-1894/ 893)  35.5 W56-W64 N07-N12
     11 1087  810 (S17W09 L=121)   361     85        3 (1059/ 782-1119/ 842)  76.0 W07-W11 S18-S14
     12 1523  602 (S15W43 L=155)   326    145        0 (1462/ 576-1578/ 640)  54.5 W40-W45 S18-S11
     13 1268  611 (S23W27 L=139)   231     91        0 (1229/ 597-1312/ 638)  45.0 W24-W28 S23-S19
     14 1673  470 (S17W64 L=176)  3294    288       10 (1584/ 373-1765/ 551) -85.9 W54-W84 S23-S09
     15 1506  323 (S30W62 L=174)   647     23        0 (1484/ 299-1533/ 353)  -7.1 W58-W66 S31-S28
  

    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