Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1491 1727 (N48W56 L=184)   594     51        1 (1468/1701-1519/1753)  13.0 W50-W63 N45-N49
      2  712 1541 (N39E22 L=106)   290     64        0 ( 674/1521- 741/1557)  -9.5 E25-E19 N38-N40
      3  886 1425 (N31E07 L=121)   622    216        0 ( 823/1353- 925/1505) -57.5 E12-E04 N25-N36
      4  369 1378 (N29E50 L= 79)   562    178        0 ( 325/1346- 395/1414)  38.7 E53-E46 N26-N31
      5 1267 1322 (N21W18 L=146)  1029    357        0 (1188/1246-1354/1372) -26.6 W12-W23 N16-N24
      6  248 1298 (N23E61 L= 67)  1028    110        2 ( 223/1244- 278/1351) -74.1 E63-E57 N19-N26
      7 1820 1272 (N13W63 L=191)   749     73        0 (1791/1240-1850/1305) -45.0 W59-W67 N11-N15
      8  182 1238 (N19E68 L= 60)  1107    100        2 ( 157/1187- 207/1283)  74.1 E72-E65 N15-N22
      9 1562 1198 (N12W37 L=165)   317     68        1 (1541/1170-1593/1229)  56.3 W34-W39 N10-N13
     10 1841  945 (S07W60 L=188)   467     58        1 (1827/ 915-1856/ 987) -68.2 W58-W62 S08-S03
     11 1645  842 (S11W41 L=169)   502    107        2 (1623/ 790-1668/ 896)  66.8 W39-W42 S14-S07
     12 1515  830 (S10W31 L=159)   254     81        0 (1498/ 793-1529/ 877)  78.7 W29-W31 S12-S07
     13  963  740 (S13E05 L=123)   451    214        1 ( 913/ 656-1030/ 817)  45.0 E09-W00 S17-S08
     14 1541  744 (S16W33 L=161)   965    222        6 (1426/ 705-1609/ 778) -12.1 W24-W38 S19-S13
     15 1803  690 (S23W60 L=188)  1179    131        1 (1751/ 659-1848/ 737)  15.3 W54-W66 S24-S20
     16 1534  648 (S23W33 L=162)   889    268        3 (1479/ 579-1595/ 699)  69.4 W29-W38 S27-S19
     17  604  530 (S25E33 L= 95)  1003    146        2 ( 582/ 457- 638/ 598)  55.0 E36-E29 S30-S20
     18  764  512 (S27E21 L=107)   301    103        1 ( 732/ 468- 790/ 550) -71.6 E22-E19 S30-S24
     19  496  432 (S33E47 L= 81)  1117    186        2 ( 418/ 412- 586/ 454)  -3.4 E55-E37 S34-S30
  

    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