Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1220 1751 (N45W18 L= 75)   590     52        1 (1189/1716-1252/1783) -51.3 W15-W19 N42-N48
      2 1275 1666 (N38W20 L= 77)   309     27        0 (1253/1646-1301/1690) -14.0 W18-W22 N36-N39
      3 1041 1555 (N30W02 L= 59)   450     98        0 ( 995/1520-1077/1599) -45.0 E01-W04 N27-N33
      4 1780 1553 (N31W67 L=124)  1520    170        1 (1701/1512-1845/1596) -15.5 W56-W80 N28-N33
      5 1762 1406 (N20W55 L=112)   670    117        1 (1735/1360-1782/1461)  66.8 W50-W57 N17-N24
      6 1684 1339 (N16W45 L=103)   738    109        1 (1661/1284-1706/1392) -81.9 W43-W47 N12-N19
      7  208 1282 (N15E60 L=357)  1966    217        5 ( 167/1190- 260/1378) -80.5 E66-E54 N08-N20
      8 1809 1341 (N16W58 L=115)   540     55        2 (1784/1302-1830/1370)  76.0 W55-W61 N14-N18
      9  309 1301 (N15E49 L=  8)   480     94        2 ( 288/1260- 329/1353)  90.0 E50-E47 N12-N18
     10  135 1168 (N08E67 L=350)  1660    110        2 (  91/1135- 175/1209)   8.7 E75-E61 N06-N10
     11  375 1074 (N01E42 L= 15)   535    139        1 ( 315/1035- 433/1099) -12.5 E46-E37 S01-N02
     12  639  899 (S10E24 L= 33)  1552    439        3 ( 597/ 678- 667/1084)  87.6 E27-E21 S23-N01
     13  313  826 (S13E49 L=  8)  3017    345       10 ( 228/ 695- 426/ 960) -63.4 E56-E41 S21-S05
     14 1393  925 (S09W22 L= 80)   310     82        0 (1356/ 908-1440/ 947) -11.3 W20-W25 S10-S07
     15  407  876 (S11E40 L= 17)   728    144        1 ( 361/ 823- 450/ 920) -45.0 E43-E37 S13-S07
     16  818  899 (S10E13 L= 45)   175     52        1 ( 793/ 878- 849/ 914)  14.0 E14-E10 S11-S09
     17  210  691 (S21E65 L=353)  2815    263        5 ( 166/ 580- 238/ 814)  25.7 E85-E57 S26-S13
     18 1066  695 (S23W02 L= 60)  1276    406        1 ( 930/ 655-1245/ 769)  -6.0 E06-W13 S25-S18
     19  475  486 (S35E45 L= 12)  2855    466        5 ( 319/ 367- 656/ 641)  15.4 E83-E25 S42-S25
     20 1674  532 (S33W52 L=109)  1340    171        3 (1600/ 503-1755/ 566)  19.7 W43-W61 S35-S30
     21 1313  395 (S44W23 L= 80)  1147    211        2 (1229/ 350-1397/ 452)  17.1 W16-W30 S47-S39
     22 1144  331 (S49W10 L= 67)   284     25        0 (1127/ 311-1164/ 356) -53.1 W07-W11 S50-S46
     23 1291  240 (S57W29 L= 86)   550     78        0 (1268/ 218-1326/ 268)  45.0 W24-W32 S59-S54
  

    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