Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1245 1720 (N42W19 L= 76)   861    155        1 (1192/1647-1304/1783) -65.6 W15-W22 N36-N48
      2 1048 1552 (N30W02 L= 59)   401     95        1 (1001/1518-1085/1595) -51.3 W00-W04 N27-N32
      3 1776 1555 (N31W66 L=123)  1214    166        1 (1705/1515-1844/1595) -15.5 W56-W78 N28-N33
      4 1766 1405 (N20W55 L=112)   664    140        2 (1731/1360-1788/1462)  74.1 W50-W58 N17-N24
      5 1822 1348 (N17W60 L=117)   921    104        2 (1792/1304-1848/1405)  71.6 W56-W62 N14-N20
      6 1691 1336 (N16W46 L=103)   769    117        2 (1670/1275-1715/1391) -81.9 W43-W48 N12-N19
      7  210 1277 (N14E60 L=357)  1801    209        7 ( 173/1190- 259/1364) -65.6 E64-E54 N08-N19
      8  136 1172 (N08E67 L=349)  1983    111        5 (  93/1133- 178/1230)  56.3 E74-E61 N06-N12
      9  358 1069 (N01E43 L= 14)   648    196        0 ( 281/1036- 438/1097)  -4.8 E49-E37 S01-N02
     10  645  895 (S10E23 L= 33)  1525    453        4 ( 605/ 676- 672/1085)  87.6 E26-E21 S23-N01
     11  320  829 (S13E48 L=  8)  2772    352       11 ( 231/ 702- 427/ 961) -66.4 E56-E40 S21-S05
     12 1401  924 (S09W23 L= 80)   309     71        0 (1364/ 907-1448/ 945)   0.0 W20-W26 S10-S08
     13  409  880 (S10E40 L= 16)   626    161        0 ( 360/ 826- 446/ 921) -63.4 E43-E37 S13-S07
     14  825  900 (S10E12 L= 45)   185     56        1 ( 800/ 876- 858/ 914)  18.4 E13-E10 S11-S09
     15  209  686 (S21E65 L=352)  3047    270        6 ( 168/ 579- 242/ 814)  24.9 E84-E56 S26-S13
     16 1077  694 (S23W03 L= 60)  1258    408        1 ( 939/ 658-1254/ 769)  -6.0 E05-W14 S25-S18
     17  477  485 (S35E45 L= 12)  2733    482        4 ( 320/ 367- 661/ 641)  14.7 E82-E25 S42-S25
     18 1682  533 (S33W53 L=110)  1284    182        3 (1603/ 504-1763/ 567)   6.7 W44-W61 S35-S30
     19 1374  420 (S42W28 L= 85)   404     45        1 (1348/ 394-1398/ 452) -63.4 W25-W30 S43-S39
     20 1284  380 (S45W21 L= 78)   713    134        1 (1230/ 351-1342/ 411)  24.0 W16-W25 S47-S42
     21 1294  241 (S57W29 L= 86)   505     78        0 (1270/ 217-1326/ 269)  45.0 W25-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