Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  806 1886 (N68E04 L=326)   747     54        1 ( 785/1845- 823/1916)  74.7 E07-W00 N62-N73
      2  650 1457 (N32E19 L=310)   347     59        1 ( 615/1436- 690/1473) -11.3 E21-E16 N30-N32
      3 1138 1370 (N19W12 L=342)   764    304        1 (1020/1255-1217/1450) -57.3 W05-W14 N11-N25
      4 1794 1414 (N13W64 L= 33)  1340    176        2 (1716/1361-1856/1447)  -9.5 W55-W73 N09-N14
      5  647 1409 (N29E20 L=310)   329     74        0 ( 608/1389- 687/1422) -18.4 E22-E16 N27-N29
      6  291 1241 (N23E49 L=280)   487     91        1 ( 270/1196- 312/1293)  90.0 E51-E47 N20-N26
      7  434 1094 (N12E37 L=293)   297     78        0 ( 419/1058- 450/1143)  63.4 E38-E35 N09-N14
      8 1153 1083 (N02W08 L=338)   243     64        1 (1130/1053-1178/1120)  45.0 W06-W10 N00-N03
      9 1656  651 (S32W41 L= 11)   351     50        1 (1637/ 624-1680/ 680) -76.0 W38-W43 S33-S29
     10  412  549 (S20E51 L=278)  1953    289        2 ( 360/ 436- 489/ 671)  82.9 E54-E47 S28-S12
     11 1490  536 (S37W27 L=357)  2081    383        2 (1333/ 430-1640/ 628)  19.1 W13-W39 S42-S31
     12  543  401 (S32E48 L=282)   334     23        0 ( 521/ 381- 565/ 420)  18.4 E50-E44 S32-S30
     13  571  348 (S36E50 L=280)   525     98        0 ( 551/ 295- 589/ 384)  31.0 E55-E45 S39-S33
     14 1116  173 (S63E13 L=317)   421     41        1 (1094/ 158-1145/ 191)   0.0 E16-E09 S64-S60
  

    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