Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1778 (N56W18 L=193)   847    146        1 (1394/1755-1488/1809)  24.4 W12-W23 N51-N60
      2  859 1416 (N13E17 L=157)   225     66        1 ( 824/1387- 896/1441)  53.1 E18-E15 N10-N15
      3 1361 1331 (N18W14 L=189)   567    230        0 (1326/1224-1425/1405)  72.9 W12-W17 N10-N23
      4  894 1300 (N07E13 L=162)   341    151        0 ( 863/1232- 931/1367)  83.7 E13-E11 N02-N11
      5  307 1334 (N01E54 L=120)   351     91        3 ( 271/1313- 335/1358)   9.5 E57-E51 N00-N02
      6 1869 1230 (N25W56 L=231)   768    128        2 (1850/1179-1886/1289)  74.1 W53-W58 N21-N28
      7  211 1226 (S07E61 L=113)   506     94        2 ( 187/1194- 231/1270)  59.0 E63-E58 S08-S03
      8 1282 1214 (N09W11 L=186)   245    114        3 (1250/1175-1328/1233)   0.0 W09-W14 N06-N10
      9 1440  888 (S06W27 L=202)   477    184        1 (1405/ 803-1467/ 988) -79.7 W25-W28 S11-N00
     10  816  813 (S23E09 L=166)   546    196        1 ( 715/ 773- 904/ 864)  36.0 E14-E03 S26-S18
     11 1733  754 (S07W53 L=227)   316    109        0 (1696/ 721-1770/ 772)  45.0 W50-W56 S09-S04
     12 1286  709 (S20W22 L=197)   350    133        0 (1229/ 672-1359/ 758)  49.4 W19-W25 S22-S15
     13 1545  429 (S29W52 L=226)  4269    933        8 (1253/ 366-1828/ 536)  29.6 W33-W77 S39-S14
  

    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