Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1626 1592 (N19W59 L=176)  2513    305        3 (1566/1455-1708/1677)  18.4 W48-W76 N12-N22
      2 1172 1596 (N32W27 L=143)   379     99        2 (1122/1575-1222/1611) -14.0 W22-W30 N30-N34
      3 1140 1480 (N26W20 L=136)   755    184        1 (1079/1400-1216/1526)  14.0 W13-W25 N23-N28
      4 1212 1352 (N17W19 L=136)   413    137        2 (1147/1299-1246/1391) -74.1 W16-W20 N14-N21
      5  918 1288 (N21W01 L=117)   291    133        0 ( 878/1238- 960/1339) -82.9 W00-W01 N17-N25
      6 1298 1282 (N11W22 L=139)   246     95        1 (1256/1263-1352/1295)  -9.5 W19-W25 N10-N12
      7  691 1179 (N20E16 L=101)  1169    331        3 ( 614/1095- 835/1282) -56.3 E19-E08 N12-N28
      8 1890 1102 (S15W62 L=179)  6834    422       16 (1811/ 988-1970/1264)  56.3 W52-W78 S22-S05
      9  411 1168 (N26E36 L= 81)  1866    427        5 ( 237/1066- 587/1240) -29.7 E52-E24 N16-N32
     10 1582 1094 (S06W34 L=151)  1819    419        4 (1508/ 894-1633/1236)  68.7 W27-W38 S16-N02
     11  655  792 (S00E27 L= 90)   787    391        0 ( 556/ 682- 808/ 929) -63.4 E30-E20 S09-N09
     12 1645  768 (S27W33 L=150)  2504    490        6 (1421/ 627-1812/ 874)   3.3 W14-W49 S29-S23
     13 1367  764 (S19W13 L=130)  1366    342        4 (1223/ 657-1502/ 826)   5.4 W02-W23 S21-S15
     14  319  540 (S08E62 L= 55)  7717      0       18 ( 229/ 422- 445/ 673) -60.3 E76-E49 S15-N01
     15 1325  195 (S62E07 L=110)   566     69        0 (1282/ 174-1360/ 215) -53.1 E10-E03 S67-S57
  

    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