Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  901 1773 (N37E35 L= 16)  2929    528        3 ( 858/1649- 970/1929) -37.2 E54-E23 N28-N50
      2  397 1502 (N06E55 L=355)   547    142        0 ( 383/1443- 412/1562) -58.0 E59-E52 N02-N10
      3 1605 1511 (N43W26 L= 77)   358     65        1 (1583/1481-1627/1530) -56.3 W23-W28 N40-N44
      4 1775 1387 (N40W44 L= 94)  2216    341        4 (1651/1309-1861/1477)  -5.0 W30-W54 N36-N43
      5 1349 1409 (N26W08 L= 59)   298    110        0 (1319/1347-1366/1452) -56.3 W05-W09 N21-N28
      6  777 1346 (N06E23 L= 28)   439     48        1 ( 748/1308- 803/1382) -63.4 E24-E21 N04-N08
      7 1846 1253 (N34W51 L=102)   807    154        1 (1804/1217-1873/1283)  32.0 W46-W54 N31-N36
      8 1128 1143 (N04W03 L= 53)   199     19        0 (1110/1123-1145/1166)  90.0 W01-W03 N02-N05
      9 1037 1154 (N02E03 L= 48)   248    115        0 ( 978/1139-1099/1165)  31.0 E05-W00 N00-N03
     10 1665 1037 (N14W38 L= 89)   787    212        0 (1629/ 963-1718/1086)  76.0 W35-W42 N09-N17
     11 1578 1030 (N11W32 L= 83)   463    112        1 (1545/ 983-1607/1084) -51.3 W28-W34 N07-N13
     12  416 1035 (S20E38 L= 13)   259     70        0 ( 401/ 992- 431/1072) -53.1 E39-E36 S22-S18
     13  833  949 (S14E09 L= 42)   248     62        2 ( 818/ 908- 855/ 987) -76.0 E09-E07 S16-S12
     14 1691  896 (N07W44 L= 95)   788    151        1 (1640/ 835-1729/ 957)  77.5 W41-W48 N02-N11
     15 1829  894 (N12W57 L=108)   569     97        4 (1805/ 854-1857/ 939)  80.5 W54-W59 N08-N14
     16  378  895 (S29E39 L= 12)   671    171        2 ( 313/ 847- 439/ 938)  41.6 E44-E34 S33-S25
     17  685  856 (S24E15 L= 35)   589    195        0 ( 603/ 823- 779/ 903)  42.0 E20-E10 S27-S18
     18  859  703 (S28E01 L= 50)   440    104        2 ( 826/ 671- 891/ 736)  76.0 E02-W01 S29-S25
     19  642  628 (S39E13 L= 38)   461     68        1 ( 607/ 612- 688/ 653)   8.1 E16-E09 S40-S37
     20 1178  301 (S42W39 L= 90)   306     47        0 (1152/ 280-1203/ 319)   0.0 W36-W41 S42-S41
  

    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