Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1527 1718 (N38W66 L=320)   534    100        0 (1499/1688-1567/1734)  -5.2 W58-W69 N36-N39
      2 1544 1653 (N34W59 L=314)   479     94        0 (1508/1615-1580/1683) -80.5 W57-W60 N30-N36
      3  674 1527 (N44E18 L=237)   888    263        2 ( 553/1498- 801/1557) -16.9 E30-E07 N40-N48
      4  992 1371 (N28W04 L=259)   231     62        0 ( 957/1355-1026/1383) -11.3 W01-W06 N27-N28
      5 1287 1293 (N18W21 L=276)  1100    376        1 (1116/1237-1447/1337) -32.3 W11-W30 N11-N23
      6  684 1237 (N25E19 L=236)   266    106        0 ( 648/1221- 736/1263) -26.6 E21-E15 N23-N26
      7  226 1142 (N24E60 L=195)  2058    214        4 ( 193/1057- 270/1227)  74.7 E64-E54 N18-N29
      8 1748 1043 (S06W49 L=304)   952    217        1 (1715/ 957-1787/1143)  42.0 W45-W55 S10-S01
      9  920 1035 (N09E06 L=249)   191    103        0 ( 863/1019- 966/1047) -18.4 E09-E03 N07-N10
     10  171  922 (N10E68 L=187)   719     55        1 ( 146/ 892- 191/ 952) -45.0 E72-E65 N08-N12
     11  144  874 (N07E74 L=181)  1147     90        4 ( 117/ 838- 171/ 913) -68.2 E79-E68 N04-N09
     12  876  501 (S24E19 L=235)   372    146        0 ( 833/ 449- 911/ 563)  41.2 E23-E15 S26-S19
     13 1603  416 (S47W39 L=294)   572     78        1 (1569/ 393-1633/ 446) -14.0 W34-W43 S49-S44
     14  614  335 (S32E47 L=208)   713    110        1 ( 584/ 293- 639/ 381)  28.6 E53-E42 S35-S28
     15 1301  250 (S55W07 L=261)   482     60        0 (1275/ 230-1333/ 267)  -9.5 W04-W10 S57-S52
  

    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