Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1569 1702 (N38W54 L=270)   760     95        1 (1546/1647-1602/1743)  33.7 W47-W60 N33-N41
      2  368 1451 (N30E46 L=170)   592    137        1 ( 339/1398- 393/1524) -52.1 E49-E42 N26-N35
      3 1460 1372 (N16W30 L=246)   335    111        1 (1434/1325-1507/1407)  38.7 W28-W34 N13-N18
      4 1896 1275 (N08W69 L=285)   671     79        0 (1853/1253-1930/1298)   4.4 W62-W75 N06-N09
      5  123 1148 (N13E69 L=147)   856    124        2 (  97/1108- 162/1189)  38.7 E73-E62 N10-N15
      6  898  951 (S05E08 L=208)   352     62        3 ( 863/ 918- 927/ 977)   0.0 E09-E06 S07-S03
      7  193  867 (S04E61 L=155)   469     93        1 ( 179/ 821- 211/ 914)  68.2 E63-E58 S06-S01
      8 1786  868 (S16W52 L=268)   329     68        0 (1772/ 833-1799/ 906)  76.0 W50-W53 S17-S13
      9  296  711 (S14E54 L=162)  4144    510       11 ( 193/ 555- 435/ 843)  38.7 E68-E40 S23-S07
     10  370  659 (S18E49 L=167)   537    109        1 ( 349/ 603- 396/ 707)  80.5 E50-E46 S21-S15
     11 1404  550 (S34W23 L=239)   571    174        0 (1313/ 514-1479/ 591)  18.4 W16-W28 S35-S31
     12  943  517 (S32E10 L=206)   590    150        0 ( 885/ 501-1027/ 535)   0.0 E14-E03 S33-S30
     13  412  438 (S33E56 L=160)   818     77        2 ( 372/ 412- 455/ 470)   4.8 E62-E50 S34-S30
     14 1134  449 (S39W03 L=219)   559    161        0 (1060/ 433-1223/ 468)  -5.2 E02-W09 S39-S36
  

    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