Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1678 (N35W49 L=169)   619    113        1 (1379/1656-1485/1695) -18.4 W44-W53 N32-N37
      2  853 1512 (N40W00 L=120)   750    143        5 ( 799/1473- 913/1545) -29.7 E03-W04 N37-N43
      3 1157 1308 (N21W15 L=134)  1250    404        2 ( 981/1249-1334/1400) -45.0 W05-W25 N13-N30
      4  598 1275 (N30E23 L= 96)  1074    252        1 ( 507/1192- 687/1363) -49.4 E29-E17 N23-N37
      5  323 1251 (N34E46 L= 73)   348     75        1 ( 295/1223- 349/1274) -31.0 E48-E43 N31-N35
      6 1449 1099 (N02W27 L=146)  1561    269        4 (1335/ 967-1523/1221) -80.0 W22-W30 S06-N11
      7 1871 1036 (S14W60 L=179)  1681    289        6 (1820/ 959-1921/1120)  26.6 W53-W68 S17-S10
      8  682 1056 (N16E20 L= 99)   356    154        1 ( 618/1027- 738/1099)   0.0 E24-E15 N14-N17
      9 1459  773 (S17W21 L=140)   692    136        1 (1398/ 719-1498/ 822) -50.2 W17-W23 S21-S14
     10  670  561 (S14E32 L= 87)   567     94        1 ( 638/ 523- 716/ 604)   9.5 E35-E29 S15-S10
     11  386  492 (S14E58 L= 61)  1853    268        3 ( 352/ 392- 415/ 581)  47.3 E63-E51 S21-S08
     12 1159  386 (S36E07 L=112)  1294    217        5 (1083/ 321-1202/ 470)  34.7 E14-E01 S40-S30
     13  721  355 (S29E38 L= 82)   572    117        1 ( 672/ 337- 761/ 385)   7.1 E41-E33 S30-S27
     14  521  357 (S25E53 L= 66)   565    103        1 ( 491/ 334- 554/ 376)  -8.1 E56-E49 S26-S23
  

    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