Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  880 1503 (N29E17 L= 52)  1432    372        3 ( 753/1380- 993/1632) -31.3 E29-E06 N22-N36
      2 1202 1597 (N40W05 L= 73)   277     35        1 (1179/1580-1233/1615) -11.3 W02-W07 N38-N41
      3  554 1416 (N19E37 L= 31)  1987    358        5 ( 472/1267- 615/1543) -39.8 E48-E29 N10-N25
      4 1265 1464 (N31W11 L= 79)   396    106        2 (1243/1417-1280/1509) -63.4 W08-W12 N28-N34
      5 1539 1249 (N21W32 L=100)   602    185        1 (1506/1162-1569/1341) -70.0 W29-W34 N15-N26
      6 1345 1278 (N20W17 L= 86)   540    133        0 (1302/1221-1387/1316) -45.0 W14-W20 N16-N22
      7 1309 1192 (N14W16 L= 84)   339    150        0 (1250/1172-1366/1220)  14.0 W11-W19 N13-N16
      8 1786 1064 (N12W54 L=122)  1083    191        2 (1755/ 972-1828/1136)  73.3 W51-W57 N06-N16
      9  885 1113 (N04E09 L= 59)   343    134        0 ( 817/1099- 955/1127)  14.0 E13-E05 N02-N05
     10  245  971 (S12E55 L= 13)  1063    210        0 ( 181/ 940- 305/1018) -12.1 E63-E48 S13-S10
     11 1838  992 (N08W60 L=128)   437    151        0 (1798/ 978-1880/1016)   0.0 W55-W65 N07-N09
     12 1586  725 (S11W41 L=110)   459    141        1 (1552/ 691-1638/ 777) -12.5 W37-W46 S12-S07
     13 1358  395 (S36W35 L=104)  1748    308        3 (1221/ 368-1498/ 428)  12.8 W25-W47 S39-S31
  

    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