Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1458 1643 (N48W11 L=356)   684    143        1 (1400/1618-1506/1672)  41.6 W06-W15 N43-N51
      2  748 1574 (N20E33 L=312)   630    195        2 ( 671/1540- 806/1636)  49.4 E38-E29 N17-N25
      3  377 1581 (N12E62 L=282)   707    139        2 ( 352/1556- 406/1610) -16.7 E67-E57 N10-N13
      4 1176 1268 (N13W02 L=347)  1372    404        2 (1080/1056-1292/1439) -39.0 E08-W13 N03-N20
      5  212 1203 (S14E61 L=284)  1153    243        2 ( 153/1165- 280/1237)  17.1 E68-E54 S16-S11
      6 1741  916 (N10W48 L= 33)   378     43        1 (1718/ 889-1760/ 946)  76.0 W46-W49 N07-N11
      7 1264  745 (S14W21 L=  6)   463    162        1 (1182/ 714-1341/ 793)  52.1 W17-W24 S17-S08
      8 1743  633 (S05W60 L= 45)  1460    294        1 (1655/ 546-1810/ 775)  76.0 W56-W64 S12-N04
      9 1851  735 (N04W68 L= 53)   574    120        3 (1824/ 715-1871/ 760)  26.6 W64-W72 N02-N05
     10  504  673 (S39E26 L=319)   242     42        2 ( 479/ 655- 529/ 692)  14.0 E27-E23 S40-S38
     11 1513  606 (S14W42 L= 27)   259     85        0 (1469/ 590-1541/ 630)  36.9 W39-W44 S15-S11
     12 1462  427 (S25W48 L= 33)  1194    222        1 (1358/ 399-1554/ 458)  28.3 W40-W54 S28-S20
     13 1221  267 (S43W44 L= 29)   401     53        0 (1192/ 252-1250/ 283)   0.0 W40-W46 S44-S41
  

    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