Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1603 (N36W11 L=151)   488    123        2 ( 982/1577-1101/1621) -26.6 W06-W14 N32-N37
      2  857 1547 (N35E04 L=137)   534    187        2 ( 778/1499- 934/1611)  24.4 E09-W02 N32-N38
      3  159 1110 (N16E64 L= 76)   463     61        1 ( 139/1078- 176/1135) -63.4 E66-E61 N14-N18
      4 1819  951 (S15W55 L=195)   937    155        4 (1785/ 878-1856/1026)  60.9 W51-W59 S19-S10
      5 1563  916 (S13W32 L=173)   293     82        0 (1527/ 890-1587/ 950)  21.8 W29-W34 S14-S11
      6 1557  794 (S21W31 L=172)   805    269        1 (1458/ 716-1640/ 894)  34.7 W23-W38 S24-S15
      7 1757  723 (S28W50 L=190)   375     76        2 (1734/ 689-1781/ 757)  76.0 W47-W52 S30-S26
      8 1851  729 (S29W62 L=203)   546     65        2 (1821/ 711-1883/ 752)  -5.7 W58-W68 S30-S27
      9  563  687 (S14E34 L=106)   397    104        1 ( 520/ 645- 598/ 733)  45.0 E37-E30 S16-S11
     10 1042  647 (S23E04 L=136)   525    280        0 ( 983/ 530-1127/ 729)  45.0 E10-W02 S29-S18
     11  303  590 (S16E60 L= 80)  1906    215       10 ( 252/ 525- 389/ 655) -22.6 E65-E50 S20-S11
     12  272  515 (S20E70 L= 70)   545     70        2 ( 242/ 495- 295/ 541) -31.0 E73-E66 S21-S18
     13  736  431 (S32E30 L=110)   328     92        0 ( 700/ 400- 763/ 462)  29.7 E34-E27 S34-S30
     14  626  288 (S41E49 L= 91)   407     49        1 ( 606/ 258- 646/ 315)  51.3 E51-E46 S43-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