Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  344 1580 (N53E53 L=  2)   851     87        2 ( 311/1539- 369/1624) -20.0 E68-E46 N49-N57
      2 1604 1543 (N20W53 L=108)  1512    255        2 (1494/1494-1688/1621)   4.4 W42-W68 N18-N22
      3 1120 1581 (N33W20 L= 75)  1817    350        2 ( 968/1533-1275/1619) -25.3 W09-W29 N27-N38
      4  446 1464 (N41E34 L= 21)   691    100        2 ( 399/1440- 511/1490) -14.0 E39-E27 N39-N43
      5  507 1391 (N35E28 L= 27)   737    105        2 ( 465/1342- 549/1433) -45.0 E31-E24 N31-N38
      6  868 1375 (N26E02 L= 53)   193     42        0 ( 852/1347- 888/1394)  33.7 E03-W00 N24-N27
      7  493 1199 (N23E30 L= 25)   330     55        0 ( 464/1181- 530/1217)   0.0 E32-E27 N21-N23
      8  192 1141 (N25E60 L=355)   639     60        2 ( 169/1113- 215/1171)  31.0 E62-E56 N22-N26
      9  552 1095 (N15E27 L= 28)   692    140        3 ( 505/1042- 604/1144) -49.4 E30-E24 N11-N18
     10  151  998 (N17E66 L=349)  7613    346       18 (  87/ 862- 240/1114) -53.1 E79-E53 N08-N24
     11 1482  996 (S09W27 L= 82)   377    136        1 (1465/ 921-1505/1057)  60.3 W24-W29 S12-S05
     12 1195  760 (S16W05 L= 60)   513    158        0 (1125/ 711-1252/ 815) -56.3 W01-W07 S20-S11
     13 1773  661 (S37W50 L=105)   957     97        2 (1732/ 619-1804/ 707) -71.6 W44-W54 S39-S33
     14  784  462 (S26E29 L= 26)   405    120        0 ( 761/ 416- 801/ 516)  56.3 E32-E26 S29-S22
     15  418  351 (S26E68 L=347)  1866    128        3 ( 376/ 287- 453/ 406)  39.3 E80-E60 S31-S22
  

    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