Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1450 1818 (N46W57 L= 18)   694     90        0 (1412/1797-1488/1836)  10.0 W49-W66 N44-N47
      2 1291 1794 (N46W37 L=358)   615     77        1 (1259/1760-1323/1834)  15.3 W32-W43 N43-N49
      3 1405 1564 (N28W33 L=355)   722    167        0 (1363/1496-1466/1601)  29.1 W29-W38 N23-N30
      4  907 1579 (N35E01 L=320)   497    114        0 ( 850/1555- 968/1600)   0.0 E05-W03 N33-N36
      5  311 1407 (N31E49 L=272)   887    148        2 ( 271/1333- 349/1477) -42.5 E57-E44 N25-N36
      6 1522 1327 (N12W35 L=356)   484     50        1 (1486/1292-1551/1358) -76.0 W32-W36 N09-N13
      7  408 1201 (N17E38 L=283)   431     94        1 ( 375/1158- 449/1245) -50.2 E40-E34 N13-N19
      8 1938 1164 (S02W72 L= 34)  1063    149        0 (1892/1094-1971/1220) -35.0 W66-W78 S06-N01
      9 1762 1041 (S08W49 L= 10)   512     67        1 (1723/1010-1794/1070) -31.0 W45-W52 S09-S05
     10  333 1007 (N06E45 L=276)  2316    360        6 ( 185/ 949- 496/1054)  -6.3 E59-E32 N01-N08
     11 1743  950 (S13W47 L=  8)   542    106        2 (1710/ 902-1776/1001)  56.3 W44-W50 S15-S09
     12  946  973 (S03E05 L=316)   181     29        0 ( 921/ 960- 971/ 990) -18.4 E06-E03 S03-S01
     13 1806  890 (S17W53 L= 15)   853    147        2 (1782/ 822-1840/ 954)  54.5 W50-W56 S20-S13
     14 1335  665 (S26W16 L=337)  4321    964        3 ( 891/ 556-1724/ 829)   6.8 E14-W45 S29-S19
     15  744  745 (S14E20 L=301)   188     55        0 ( 718/ 723- 771/ 766) -45.0 E21-E18 S15-S12
     16  298  645 (S15E57 L=265)   897    148        3 ( 261/ 586- 326/ 702)  45.0 E61-E52 S18-S11
     17  418  680 (S14E44 L=277)   432    141        1 ( 367/ 650- 494/ 702) -11.3 E48-E38 S15-S12
     18  737  577 (S24E24 L=297)   475    101        2 ( 709/ 538- 760/ 637)  63.4 E26-E21 S26-S20
     19 1727  528 (S40W54 L= 15)   671     75        1 (1690/ 502-1762/ 559)   6.3 W48-W57 S41-S37
     20 1478  454 (S42W28 L=350)   814    194        2 (1397/ 424-1573/ 483)  -3.6 W21-W37 S43-S40
     21  364  401 (S31E67 L=255)  1577    135        4 ( 315/ 373- 426/ 433) -15.9 E82-E59 S33-S28
     22  581  276 (S43E54 L=268)   392     45        0 ( 561/ 253- 607/ 296)  18.4 E58-E49 S44-S41
  

    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