Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  842 1869 (N42E49 L= 76)   534     72        0 ( 817/1836- 870/1905) -48.8 E53-E45 N38-N46
      2  612 1709 (N24E50 L= 75)  1409    231        5 ( 554/1622- 669/1798) -17.7 E65-E40 N18-N29
      3  829 1710 (N29E35 L= 90)   785    150        3 ( 808/1629- 849/1783) -42.3 E41-E30 N23-N34
      4 1220 1665 (N39E08 L=117)   284     65        1 (1195/1643-1259/1679)  53.1 E10-E05 N36-N40
      5 1071 1572 (N27E14 L=112)   991    360        1 ( 970/1506-1154/1672) -14.9 E23-E08 N22-N33
      6 1369 1596 (N39W04 L=130)   715    100        2 (1340/1546-1400/1644) -76.0 W01-W07 N34-N42
      7  290 1389 (S02E59 L= 66)  1983    192        6 ( 243/1326- 339/1454)  90.0 E64-E54 S06-N01
      8 1674 1242 (N26W35 L=160)  1095    197        2 (1616/1176-1741/1314) -18.4 W29-W41 N23-N28
      9  304 1282 (S08E54 L= 72)   388     75        1 ( 267/1259- 324/1311)  63.4 E56-E51 S10-S06
     10  839 1178 (S02E14 L=111)  1056    265        3 ( 800/1076- 905/1287) -38.7 E18-E07 S05-N03
     11 1216 1078 (N02W09 L=134)   213     77        0 (1200/1041-1230/1117) -63.4 W07-W10 N00-N04
     12 1283  995 (S00W15 L=140)   493    195        0 (1259/ 905-1309/1087) -48.8 W11-W18 S04-N04
     13 1587  447 (S19W58 L=183)   966    146        0 (1519/ 424-1656/ 470)  37.9 W52-W63 S23-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