Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1040 1807 (N52W25 L=337)   325     64        0 (1011/1784-1067/1827)   7.1 W21-W29 N50-N53
      2 1467 1632 (N29W46 L=358)  2491    404        4 (1267/1562-1616/1690) -32.5 W32-W57 N21-N36
      3 1727 1508 (N16W62 L= 14)   604     58        1 (1688/1492-1759/1528)  -6.3 W57-W66 N14-N16
      4 1422 1457 (N19W34 L=346)   318     56        0 (1387/1437-1460/1471) -36.9 W31-W36 N17-N20
      5  777 1322 (N24E10 L=302)   220     22        0 ( 756/1300- 799/1345)  26.6 E11-E07 N22-N24
      6 1838 1273 (N00W63 L= 14)   941    139        0 (1793/1231-1867/1341)  17.1 W56-W69 S01-N03
      7  494 1266 (N25E30 L=282)  2079    412        1 ( 311/1212- 680/1330)  -5.5 E46-E15 N22-N29
      8 1633 1101 (S05W39 L=351)   281     40        0 (1604/1082-1660/1116) -26.6 W37-W41 S06-S04
      9 1873  897 (S23W60 L= 12)   851     80        1 (1845/ 853-1895/ 941) -80.5 W56-W63 S25-S19
     10 1094  775 (S14E01 L=311)   272     82        0 (1077/ 729-1117/ 815)  53.1 E02-W01 S16-S11
     11 1264  744 (S19W09 L=321)   331     91        0 (1231/ 708-1285/ 790)  45.0 W06-W10 S21-S16
     12 1389  700 (S24W16 L=328)   277     87        0 (1371/ 654-1412/ 749)  56.3 W14-W18 S27-S21
     13  447  428 (S23E56 L=256)   844    137        0 ( 418/ 368- 467/ 495)  45.0 E63-E52 S27-S18
  

    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