Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1200 1581 (N39W19 L=304)   236     28        0 (1179/1560-1221/1603)  33.7 W16-W20 N37-N40
      2  373 1573 (N43E60 L=226)   704    102        0 ( 327/1554- 420/1592)   4.1 E69-E54 N41-N44
      3 1109 1542 (N37W11 L=296)   243     63        1 (1076/1522-1133/1560)  21.8 W07-W12 N36-N38
      4  858 1524 (N38E09 L=277)   243     32        1 ( 835/1500- 879/1541) -56.3 E10-E07 N36-N39
      5 1699 1448 (N25W57 L=343)   387     72        1 (1663/1434-1743/1459) -14.0 W53-W61 N23-N25
      6  825 1250 (N20E11 L=274)   300     87        2 ( 783/1216- 869/1279) -26.6 E14-E08 N17-N21
      7 1375 1166 (N11W23 L=309)   757    310        1 (1260/1059-1449/1212) -36.0 W15-W27 N04-N14
      8  170 1044 (N09E66 L=220)  1317    196        4 ( 135/ 962- 199/1144) -74.7 E71-E61 N03-N14
      9  344 1060 (N10E47 L=239)   662    200        1 ( 274/ 997- 408/1119) -30.3 E53-E41 N05-N13
     10 1050  963 (N01W01 L=287)   995    337        1 (1001/ 816-1098/1113) -83.7 W00-W03 S08-N10
     11  708 1067 (N09E20 L=266)   283     78        1 ( 689/1023- 734/1104)  68.2 E20-E17 N06-N11
     12 1813 1020 (S02W57 L=342)   910    203        2 (1735/ 964-1861/1096)  15.9 W48-W62 S05-N01
     13 1802  836 (S14W56 L=342)   493    101        2 (1781/ 778-1829/ 872)  59.0 W53-W58 S17-S11
     14  201  757 (S09E66 L=220)  1676    265        3 ( 179/ 635- 223/ 871)  66.4 E74-E61 S17-S01
     15  657  621 (S18E27 L=259)   354    132        2 ( 636/ 575- 682/ 681) -90.0 E28-E25 S21-S14
     16  550  643 (S16E34 L=251)   296     25        1 ( 528/ 621- 571/ 668) -90.0 E36-E32 S17-S14
     17 1625  625 (S25W41 L=327)   332     63        0 (1597/ 604-1656/ 646)  21.8 W38-W43 S26-S24
     18  523  597 (S19E38 L=248)   443     73        2 ( 496/ 562- 556/ 634) -53.1 E39-E34 S21-S16
     19  459  514 (S25E46 L=240)   368    105        1 ( 441/ 472- 477/ 563)  66.8 E48-E43 S28-S21
     20  842  502 (S27E16 L=270)   368     93        0 ( 816/ 456- 873/ 552)  54.5 E18-E13 S30-S23
     21 1451  489 (S33W28 L=314)   485     71        1 (1419/ 464-1479/ 522)  36.9 W25-W30 S35-S31
     22 1395  356 (S44W26 L=312)  3256    271        9 (1281/ 290-1519/ 413)  19.3 W16-W38 S49-S38
     23 1179  347 (S42W07 L=293)   377     72        1 (1154/ 316-1207/ 368)  31.0 W04-W09 S44-S40
     24  842  262 (S47E24 L=262)  3380    484        9 ( 640/ 204-1058/ 332)  11.3 E53-E03 S52-S42
  

    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