Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1806 (N52W12 L= 89)   374     48        1 (1173/1784-1232/1826) -21.8 W09-W14 N49-N53
      2 1468 1653 (N40W33 L=110)   324     35        0 (1448/1629-1489/1676)  45.0 W30-W35 N37-N41
      3 1549 1483 (N28W35 L=112)   261     35        1 (1525/1462-1566/1501) -45.0 W33-W36 N26-N28
      4  282 1360 (N15E55 L= 21)   651    110        0 ( 254/1309- 322/1412)  56.3 E57-E52 N11-N18
      5  497 1267 (N09E35 L= 42)   256     78        0 ( 462/1253- 544/1285)   0.0 E37-E31 N08-N10
      6  262 1169 (N03E54 L= 23)   462    176        0 ( 243/1090- 290/1249) -63.4 E55-E50 S01-N07
      7 1848 1099 (N06W59 L=136)  1035    137        5 (1817/1027-1879/1155)  82.9 W55-W63 N01-N09
      8  983  865 (S14E02 L= 75)   281    159        0 ( 950/ 808-1047/ 891)  51.3 E03-W01 S17-S12
      9  188  794 (S19E65 L= 12)  1757    230        4 ( 138/ 709- 259/ 871)  35.5 E74-E54 S24-S14
     10 1172  748 (S20W11 L= 87)   605    134        2 (1113/ 696-1217/ 813)  81.9 W06-W13 S23-S16
     11  910  733 (S22E06 L= 71)   431    166        0 ( 837/ 707- 983/ 763) -18.4 E10-E01 S23-S20
     12 1645  719 (S19W45 L=122)   557     93        1 (1606/ 692-1686/ 754)  38.7 W41-W47 S20-S16
     13 1306  520 (S34W23 L=100)   517     68        1 (1270/ 493-1343/ 553) -26.6 W20-W26 S36-S32
     14 1011  162 (S68W07 L= 84)   478     55        0 ( 985/ 140-1039/ 186) -26.6 W02-W13 S71-S65
  

    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