Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1056 1553 (N30W05 L=169)   572    140        1 ( 999/1505-1112/1594) -45.0 W01-W08 N26-N33
      2  453 1475 (N29E39 L=125)   854    141        3 ( 396/1435- 521/1521) -26.6 E45-E32 N26-N32
      3  238 1292 (N19E56 L=108)  5043    332        9 ( 155/1139- 326/1433) -84.0 E66-E46 N09-N28
      4 1460 1205 (N06W28 L=192)   234     58        0 (1427/1190-1495/1221) -11.3 W25-W30 N05-N07
      5 1193 1103 (N02W10 L=174)   504    217        1 (1109/1061-1293/1130)   5.2 W05-W16 N00-N03
      6 1807  971 (S08W54 L=218)   360     87        0 (1778/ 927-1824/ 997) -59.0 W51-W55 S11-S06
      7  451  878 (S07E37 L=127)   703    109        2 ( 414/ 825- 494/ 924)  56.3 E40-E33 S10-S04
      8 1057  847 (S13W01 L=165)  1525    484        7 ( 874/ 767-1270/ 920)   9.5 E10-W14 S16-S09
      9  667  895 (S08E22 L=142)   205     97        0 ( 612/ 874- 704/ 913) -31.0 E25-E20 S09-S06
     10  392  778 (S13E43 L=120)   568    203        1 ( 377/ 671- 411/ 865)  85.2 E45-E42 S19-S07
     11  211  788 (S11E61 L=103)   817     81        1 ( 179/ 750- 245/ 834)  24.0 E65-E55 S13-S08
     12 1105  786 (S17W04 L=168)   266     83        3 (1084/ 757-1130/ 828) -76.0 W02-W05 S18-S14
     13 1060  640 (S26W00 L=164)   201     56        1 (1034/ 616-1084/ 667)  45.0 E01-W01 S27-S23
     14  356  472 (S32E60 L=104)  1574    163        2 ( 315/ 391- 412/ 527)  21.8 E74-E51 S36-S28
     15 1650  471 (S40W51 L=215)  1024    124        1 (1584/ 452-1710/ 493)  -3.4 W43-W60 S41-S38
  

    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