Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1192 1738 (N42E10 L=261)   414    103        1 (1168/1698-1222/1766)  90.0 E11-E08 N38-N45
      2 1298 1644 (N38W01 L=272)  1039    219        3 (1232/1544-1365/1706) -39.3 E04-W07 N32-N42
      3  946 1613 (N25E21 L=251)   406    110        0 ( 929/1559- 959/1664) -50.2 E23-E18 N21-N28
      4  676 1531 (N14E34 L=238)  1034    248        1 ( 654/1432- 699/1633) -50.2 E39-E29 N08-N20
      5  256 1471 (N04E68 L=204)   832    159        1 ( 215/1442- 298/1487)   4.8 E74-E62 N01-N05
      6 1288 1431 (N23W05 L=277)   301     64        1 (1266/1392-1303/1462) -53.1 W03-W06 N20-N25
      7  782 1354 (N06E22 L=250)   449    147        1 ( 726/1312- 846/1398) -12.5 E26-E17 N03-N07
      8 1275 1174 (N07W10 L=282)   866    278        0 (1247/1028-1305/1304) -57.3 W06-W15 N00-N14
      9  144 1127 (S18E66 L=205)  3588    517       11 (  98/1027- 197/1222) -45.0 E74-E60 S24-S12
     10  446  930 (S25E35 L=237)   825    288        0 ( 334/ 881- 556/ 987)  34.5 E43-E27 S30-S19
     11  885  948 (S15E06 L=266)   191     80        0 ( 843/ 936- 929/ 958)  21.8 E08-E03 S15-S13
     12  176  814 (S37E59 L=213)  1432    319        5 ( 127/ 762- 234/ 854)  30.3 E64-E52 S40-S33
     13 1459  616 (S18W38 L=310)   261     51        1 (1425/ 604-1490/ 632)  33.7 W35-W39 S19-S16
     14 1551  500 (S21W50 L=322)   780    115        1 (1501/ 450-1591/ 567) -77.5 W47-W51 S25-S16
  

    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