Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  395 1601 (N13E62 L= 98)  1336    259        3 ( 375/1504- 430/1685) -56.3 E66-E56 N06-N18
      2  420 1401 (N01E49 L=111)   292     67        0 ( 406/1366- 444/1426) -63.4 E50-E46 N00-N02
      3  265 1370 (S03E62 L= 97)   734    119        1 ( 234/1333- 295/1410)  90.0 E66-E59 S05-N00
      4  789 1352 (N07E22 L=137)   354     86        0 ( 753/1316- 830/1389)  63.4 E24-E20 N04-N10
      5 1171 1292 (N14W01 L=160)   234    127        1 (1135/1223-1210/1345) -40.6 E02-W05 N10-N16
      6  906 1294 (N07E14 L=146)   207     93        0 ( 874/1248- 942/1319)  80.5 E15-E12 N03-N09
      7 1786 1138 (N24W46 L=206)   320     63        1 (1765/1105-1806/1164) -45.0 W44-W48 N22-N25
      8  178  982 (S28E59 L=100)  1204    356        1 ( 120/ 885- 248/1067)  52.4 E64-E52 S34-S21
      9 1841  906 (N13W58 L=217)   458     62        1 (1826/ 870-1856/ 941) -63.4 W56-W59 N10-N14
     10  643  824 (S26E18 L=142)   883    239        2 ( 538/ 806- 761/ 847)  29.7 E24-E10 S29-S21
     11 1194  756 (S15W17 L=177)   427    228        0 (1087/ 715-1305/ 778)  39.3 W12-W23 S20-S11
     12 1863  719 (N04W71 L=230)   763    114        0 (1846/ 676-1874/ 761) -59.0 W66-W74 N01-N06
     13  309  661 (S46E45 L=115)   362     56        2 ( 288/ 635- 327/ 685) -71.6 E47-E42 S47-S44
     14 1215  655 (S20W22 L=181)   704    259        0 (1108/ 633-1353/ 677)  29.7 W15-W29 S22-S14
     15 1657  538 (S13W57 L=217)   639    148        2 (1621/ 500-1683/ 581) -68.2 W54-W60 S15-S10
  

    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