Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1192 1805 (N46W48 L= 87)   576     93        1 (1168/1775-1226/1847)  50.2 W44-W54 N43-N49
      2  766 1754 (N61W10 L= 49)   322     37        0 ( 745/1730- 784/1772) -78.7 W07-W12 N57-N62
      3  558 1658 (N61E19 L= 20)  1500    282        3 ( 429/1576- 665/1721)   5.2 E37-E03 N56-N63
      4 1458 1674 (N29W54 L= 93)   352    100        0 (1399/1658-1500/1694) -33.7 W50-W57 N26-N31
      5  889 1577 (N42W10 L= 49)   683    167        0 ( 830/1522- 952/1630) -70.0 W07-W11 N36-N47
      6 1297 1538 (N27W33 L= 73)   853    264        1 (1164/1507-1417/1554) -35.5 W25-W40 N21-N31
      7  966 1359 (N26W06 L= 45)   602    165        3 ( 899/1311-1020/1397) -58.0 W02-W10 N22-N30
      8 1134 1308 (N19W14 L= 53)   528    204        1 (1064/1233-1198/1368) -73.3 W11-W17 N13-N23
      9  883 1169 (N18E04 L= 35)   588    284        0 ( 762/1120-1021/1209) -42.5 E10-W02 N11-N23
     10 1811 1033 (S17W52 L= 91)  1421    242        2 (1780/ 929-1844/1137)  77.0 W48-W57 S23-S10
     11 1896  953 (S25W62 L=101)  1201    164        1 (1842/ 907-1938/1040)  10.6 W53-W71 S27-S21
     12 1741  899 (S22W42 L= 82)   358    138        0 (1702/ 838-1779/ 955)  29.1 W37-W47 S24-S19
     13 1277  629 (S23W04 L= 43)   291     63        0 (1246/ 606-1305/ 648) -14.0 W02-W06 S24-S21
     14 1118  465 (S29E11 L= 28)   977    330        0 ( 974/ 400-1192/ 564)  11.9 E22-E03 S31-S24
     15 1095  281 (S42E21 L= 18)  1806    366        2 ( 968/ 198-1246/ 394)  11.0 E36-E05 S45-S37
  

    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