Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1530 1720 (N38W66 L=320)   520     94        0 (1502/1691-1567/1735)  -5.2 W59-W70 N36-N39
      2 1549 1654 (N34W60 L=314)   471     75        0 (1514/1617-1583/1682) -90.0 W58-W61 N30-N36
      3  689 1528 (N44E17 L=238)   872    272        1 ( 558/1497- 816/1559) -19.2 E29-E05 N39-N48
      4 1001 1373 (N28W05 L=259)   216     65        0 ( 970/1357-1038/1384) -11.3 W02-W07 N26-N28
      5 1285 1300 (N18W21 L=275)  1031    348        0 (1122/1254-1427/1340) -29.1 W11-W29 N12-N23
      6  693 1236 (N25E18 L=236)   245    103        1 ( 658/1223- 742/1263) -26.6 E20-E14 N23-N26
      7  231 1145 (N24E59 L=195)  2076    215        4 ( 199/1054- 276/1233) -70.0 E64-E53 N18-N29
      8 1754 1050 (S06W50 L=304)   861    194        1 (1723/ 960-1791/1132)  45.0 W46-W55 S10-S02
      9  174  921 (N10E67 L=187)   750     49        2 ( 151/ 891- 197/ 951) -45.0 E71-E64 N08-N12
     10  145  873 (N07E74 L=180)  1087     87        2 ( 121/ 838- 169/ 909) -78.7 E78-E69 N04-N09
     11 1710  531 (S41W49 L=303)   477     50        2 (1691/ 503-1736/ 556)  90.0 W45-W52 S42-S38
     12 1611  421 (S47W40 L=294)   641     63        2 (1577/ 394-1644/ 447)  -6.3 W35-W44 S50-S44
     13  619  336 (S32E47 L=208)   648     88        2 ( 590/ 298- 648/ 378)  31.0 E52-E42 S35-S28
     14 1495  351 (S50W28 L=282)   407     62        1 (1467/ 337-1522/ 366)  11.3 W24-W31 S52-S48
     15 1310  256 (S54W08 L=262)   623     90        0 (1274/ 233-1353/ 294)  24.0 W03-W12 S56-S51
  

    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