Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1113 1709 (N42W31 L=129)   291     89        0 (1079/1689-1153/1726)  -9.5 W28-W34 N40-N43
      2 1518 1475 (N16W44 L=142)  1354    346        1 (1375/1434-1671/1531) -39.5 W36-W54 N08-N22
      3 1127 1470 (N27W19 L=117)   331    125        1 (1062/1446-1183/1498)  -6.3 W14-W23 N25-N28
      4 1848 1391 (N01W71 L=169)   769    230        1 (1818/1370-1887/1405)  -3.6 W65-W81 N00-N01
      5 1379 1372 (N14W30 L=128)   405     82        2 (1337/1349-1425/1397) -45.0 W28-W33 N12-N16
      6 1861 1141 (S13W59 L=157)  2167    344        5 (1821/ 969-1909/1283)  72.5 W54-W65 S24-S04
      7 1204 1054 (N02W11 L=109)   312     98        1 (1151/1035-1254/1078) -38.7 W08-W13 N00-N04
      8  341  959 (N18E45 L= 53)   828    211        3 ( 286/ 914- 429/1010) -35.0 E48-E38 N14-N21
      9 1681  901 (S20W37 L=135)  1109    279        4 (1616/ 796-1726/ 993) -78.7 W33-W39 S27-S12
     10 1182  669 (S19E01 L= 97)   442    139        0 (1145/ 619-1241/ 697)  18.4 E03-W03 S21-S16
     11 1324  531 (S32W04 L=102)  1401    258        3 (1281/ 428-1354/ 653)  60.3 E01-W08 S38-S23
     12  770  403 (S24E34 L= 64)  1020    238        2 ( 735/ 315- 825/ 487)  59.7 E37-E28 S31-S19
     13 1491  396 (S49W14 L=112)  2637    425        8 (1385/ 338-1579/ 469)  -3.0 W04-W23 S54-S42
     14  511  326 (S23E58 L= 40)  1773    263        2 ( 485/ 260- 553/ 397)  45.0 E64-E53 S28-S18
  

    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