Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1650 1455 (N26W53 L=267)   574    160        1 (1596/1406-1711/1500) -45.0 W49-W57 N22-N29
      2  679 1376 (N29E22 L=192)  1338    355        2 ( 612/1259- 806/1455)  35.5 E26-E12 N21-N34
      3 1133 1380 (N26W10 L=224)   405    205        1 (1100/1334-1203/1452) -90.0 W08-W14 N23-N31
      4 1337 1437 (N28W26 L=240)   232    114        0 (1280/1417-1386/1451) -15.9 W21-W28 N26-N29
      5  279 1396 (N31E62 L=152)   777    121        2 ( 241/1358- 327/1419) -11.3 E69-E54 N28-N32
      6  824 1337 (N26E11 L=203)   628    140        1 ( 762/1302- 890/1366)  18.4 E15-E06 N23-N27
      7 1141 1255 (N18W09 L=223)   249    122        1 (1099/1226-1190/1290) -26.6 W06-W12 N16-N20
      8 1415 1148 (N10W26 L=240)   300     93        2 (1370/1117-1443/1173) -36.9 W23-W27 N07-N11
      9  343 1086 (N11E47 L=167)   350     98        0 ( 318/1052- 376/1130)  45.0 E49-E44 N09-N14
     10 1690  973 (S04W45 L=259)  1116    267        1 (1608/ 911-1735/1077)  38.7 W38-W49 S07-N02
     11 1751  853 (S12W51 L=265)   522     34        1 (1726/ 828-1774/ 877) -45.0 W48-W53 S13-S10
     12 1146  604 (S23W05 L=220)   556    154        0 (1125/ 522-1177/ 670)  73.3 W03-W07 S28-S18
     13  524  593 (S20E38 L=176)   401     91        1 ( 489/ 575- 561/ 625)  23.2 E41-E34 S21-S17
  

    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