Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1379 1505 (N28W18 L=318)   330     64        0 (1339/1478-1409/1524) -21.8 W15-W20 N26-N29
      2  649 1374 (N12E27 L=272)  1230    241        5 ( 589/1285- 723/1481) -42.5 E33-E21 N06-N18
      3 1812 1152 (N12W53 L=352)  2038    386        3 (1727/1049-1910/1215) -14.0 W44-W65 N07-N16
      4 1457 1107 (N04W25 L=325)   256     94        2 (1408/1066-1497/1136) -18.4 W22-W28 N02-N05
      5 1362 1014 (S02W20 L=320)   208     83        0 (1330/ 994-1408/1044) -11.3 W18-W23 S03-N00
      6  169  925 (S17E62 L=238)  1897    314        4 ( 110/ 841- 217/1003) -39.8 E70-E56 S22-S12
      7 1730  773 (S11W51 L=350)   402     99        0 (1699/ 735-1761/ 806) -26.6 W47-W54 S12-S09
      8 1296  588 (S28W24 L=323)  2269    564        6 (1013/ 495-1553/ 742)  36.6 W06-W37 S38-S15
  

    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