Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  441 1620 (N14E58 L=260)   561     59        0 ( 409/1597- 467/1644)  63.4 E60-E56 N11-N15
      2  393 1557 (N09E59 L=259)   522    100        2 ( 363/1533- 423/1582)   0.0 E63-E55 N07-N10
      3  282 1510 (N04E69 L=249)   599    117        3 ( 264/1485- 301/1532)  90.0 E72-E65 N02-N05
      4  350 1203 (S13E47 L=270)  1020    177        1 ( 281/1146- 408/1270)  55.0 E51-E44 S17-S07
      5  157 1104 (S22E64 L=254)   800    214        1 ( 116/1070- 205/1139)  32.0 E68-E58 S24-S19
      6  312 1052 (S22E47 L=271)   632    203        0 ( 251/1004- 371/1097)  41.2 E51-E42 S25-S18
      7  770 1008 (S14E14 L=304)   277    122        0 ( 761/ 949- 781/1077) -66.8 E15-E11 S16-S09
      8 1754  930 (N11W48 L=  6)   305     63        0 (1741/ 895-1766/ 961) -56.3 W46-W49 N09-N12
      9  719  857 (S23E13 L=304)   288    103        0 ( 669/ 834- 772/ 895)  -7.1 E17-E09 S24-S22
     10  377  802 (S36E37 L=280)   312     78        0 ( 347/ 776- 412/ 821)  26.6 E40-E34 S38-S33
     11 1761  602 (S05W64 L= 22)  1880    347        4 (1693/ 507-1842/ 743) -86.2 W60-W72 S11-N04
     12  272  661 (S48E49 L=269)  1454    305        2 ( 203/ 633- 324/ 709)  26.6 E58-E42 S51-S43
     13 1629  589 (S11W52 L= 10)   597    134        1 (1596/ 559-1683/ 613)  51.3 W48-W56 S13-S08
     14 1460  318 (S31W56 L= 14)  1017    188        2 (1409/ 292-1510/ 356)   4.8 W49-W61 S32-S28
  

    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