Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  990 1885 (N70E17 L=129)   627     49        2 ( 963/1863-1017/1902)  23.2 E21-E12 N66-N72
      2  812 1570 (N37E20 L=126)   585    194        0 ( 754/1532- 893/1637) -23.2 E26-E12 N34-N42
      3 1684 1517 (N37W57 L=203)  1651    190        3 (1611/1476-1755/1548)   2.7 W46-W67 N33-N39
      4 1445 1477 (N33W30 L=176)   545    130        0 (1398/1435-1480/1509) -38.7 W26-W32 N30-N35
      5  476 1422 (N25E43 L=103)   358     95        0 ( 435/1398- 509/1447)  38.7 E45-E40 N22-N26
      6 1565 1368 (N26W38 L=184)   444     70        1 (1532/1337-1595/1396) -45.0 W35-W40 N24-N28
      7 1827 1373 (N27W69 L=215)   595     52        0 (1801/1355-1852/1391) -15.9 W65-W74 N25-N27
      8 1300 1363 (N25W17 L=163)   250     60        1 (1274/1338-1329/1382) -14.0 W15-W19 N23-N26
      9 1818 1178 (N14W60 L=206)   689     99        1 (1793/1129-1835/1228) -80.5 W57-W62 N11-N17
     10 1227 1024 (N03W13 L=158)   331    143        0 (1190/ 986-1274/1083)  50.2 W10-W15 N01-N07
     11 1748  855 (S06W53 L=198)   531     46        1 (1724/ 831-1771/ 882) -36.9 W50-W54 S07-S04
     12  400  718 (S20E44 L=102)   913    119        3 ( 344/ 682- 453/ 752) -12.5 E48-E38 S22-S18
     13  203  711 (S22E69 L= 77)  1072     95        0 ( 174/ 672- 235/ 751)  18.4 E79-E61 S25-S19
     14 1026  495 (S32W03 L=149)   293     88        0 ( 985/ 477-1071/ 515)  -9.5 W00-W06 S33-S30
     15  778  483 (S34E16 L=130)   620    116        2 ( 730/ 451- 836/ 513) -20.6 E19-E11 S36-S31
  

    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