Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  925 1738 (N49E21 L=293)   537     75        1 ( 885/1713- 964/1763)  51.3 E23-E17 N46-N51
      2  256 1482 (N21E74 L=240)   793     75        2 ( 231/1451- 275/1516)  90.0 E78-E70 N18-N23
      3 1687 1369 (N30W47 L=  1)  2352    213        4 (1623/1259-1720/1461)  66.8 W41-W53 N22-N36
      4  382 1331 (N13E49 L=265)   315     70        2 ( 350/1311- 419/1347)   0.0 E51-E45 N11-N14
      5 1604 1192 (N17W38 L=351)   692    135        0 (1562/1150-1665/1227)  33.7 W34-W43 N14-N20
      6  516 1088 (S00E33 L=280)   354     99        0 ( 467/1068- 563/1104)   0.0 E37-E29 S01-N00
      7  500  924 (S10E33 L=280)   332     98        0 ( 474/ 895- 542/ 947)   0.0 E35-E29 S12-S08
      8  516  817 (S17E32 L=282)   310    117        1 ( 462/ 799- 560/ 846)  -8.1 E35-E28 S17-S15
      9 1207  724 (S15W15 L=328)   571    190        0 (1176/ 655-1249/ 812) -63.4 W12-W18 S19-S09
     10  547  695 (S25E29 L=284)   257     48        1 ( 525/ 670- 564/ 719) -76.0 E31-E27 S26-S22
     11 1709  644 (S16W56 L=  9)   351     41        1 (1687/ 625-1728/ 664)  33.7 W53-W57 S16-S14
     12  425  605 (S33E42 L=272)   465     73        0 ( 386/ 591- 470/ 623)   0.0 E45-E37 S33-S31
     13 1233  403 (S37W25 L=338)   560     88        1 (1190/ 377-1267/ 431)  31.0 W21-W27 S39-S34
     14 1193  253 (S51W30 L=344)   810     98        1 (1152/ 216-1219/ 300) -63.4 W25-W34 S54-S46
     15 1151  193 (S58W32 L=346)   745     43        2 (1123/ 169-1177/ 218)   0.0 W28-W38 S61-S55
  

    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