Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1438 (N33W17 L=123)   543    109        1 (1442/1389-1511/1481) -39.8 W14-W20 N30-N35
      2  753 1199 (S02E20 L= 85)   575    144        2 ( 701/1160- 813/1246) -14.0 E23-E15 S03-N00
      3 1777 1212 (N29W47 L=152)  1054    145        0 (1723/1158-1820/1245) -23.2 W41-W52 N25-N30
      4 1650 1140 (N20W36 L=141)   804    242        1 (1570/1052-1700/1227)  63.4 W31-W39 N12-N26
      5 1895  960 (N18W66 L=171)   796    129        2 (1870/ 901-1914/1029) -41.2 W60-W71 N14-N21
      6  304  863 (S32E47 L= 58)  1535    206        3 ( 263/ 792- 351/ 962)  56.3 E52-E42 S37-S25
      7 1211  928 (S05W13 L=118)   359    102        2 (1181/ 880-1242/ 959) -36.9 W10-W15 S07-S02
      8  252  754 (S40E55 L= 51)  1306    119        2 ( 209/ 711- 311/ 799)  19.4 E64-E46 S44-S37
      9 1794  717 (N01W62 L=167)   786    123        0 (1764/ 658-1817/ 782) -81.9 W60-W64 S02-N05
     10 1235  680 (S18W22 L=128)   669    221        1 (1147/ 646-1309/ 747)  52.1 W17-W24 S21-S11
     11 1659  678 (S05W51 L=156)   634    108        1 (1635/ 628-1678/ 719) -29.7 W47-W54 S07-S03
     12 1340  654 (S16W29 L=135)   363    121        2 (1278/ 633-1400/ 680)  39.8 W26-W32 S18-S13
     13  901  618 (S31W04 L=110)   394    136        0 ( 849/ 573- 955/ 647)  63.4 W02-W06 S35-S27
     14 1532  577 (S15W46 L=151)   425    113        2 (1481/ 548-1580/ 601)  33.7 W42-W48 S17-S11
     15  814  545 (S38W01 L=106)   310     40        1 ( 790/ 526- 841/ 567)  18.4 W00-W03 S39-S36
  

    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