Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  879 1713 (N50W14 L=279)   396     72        1 ( 843/1695- 927/1728)  -7.1 W10-W18 N48-N52
      2 1181 1433 (N23W21 L=286)   439     89        0 (1154/1391-1223/1473)  26.6 W18-W24 N20-N24
      3 1001 1394 (N26W09 L=274)   684    198        3 ( 896/1364-1093/1422) -18.4 W02-W14 N23-N28
      4  257 1343 (N42E53 L=212)   569     81        1 ( 208/1318- 290/1359) -17.1 E61-E48 N39-N43
      5 1758  919 (S21W45 L=310)   943    152        0 (1722/ 842-1781/ 991)  58.0 W40-W47 S25-S16
      6 1524  918 (S14W27 L=292)   249     63        0 (1502/ 888-1550/ 952) -63.4 W25-W27 S16-S12
      7  359  787 (N06E48 L=218)   583    109        0 ( 322/ 748- 412/ 812)   0.0 E51-E43 N04-N07
      8 1056  697 (S15E06 L=259)   268     80        0 (1022/ 671-1098/ 717) -11.3 E08-E03 S15-S13
      9  360  672 (S00E52 L=214)   680     51        2 ( 334/ 634- 388/ 707)  56.3 E54-E48 S02-N01
     10 1098  602 (S21E07 L=259)   719    198        0 (1045/ 530-1151/ 693)  35.0 E11-E01 S24-S16
     11  948  525 (S22E18 L=248)   288     90        0 ( 910/ 505- 993/ 551) -51.3 E19-E15 S24-S19
     12  760  402 (S25E35 L=231)   514    106        0 ( 744/ 342- 776/ 457)  58.0 E38-E31 S29-S21
     13 1241  369 (S42E06 L=260)   503    143        0 (1200/ 310-1272/ 413)  36.9 E10-E02 S45-S38
  

    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