Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1586 1681 (N25W63 L=216)   582    102        2 (1526/1661-1622/1703) -16.7 W57-W68 N23-N26
      2 1449 1603 (N25W45 L=199)   468    101        0 (1398/1582-1496/1622) -45.0 W42-W47 N22-N27
      3 1336 1454 (N20W30 L=184)   821    230        2 (1235/1402-1424/1498)  -7.6 W22-W37 N17-N21
      4 1155 1309 (N16W15 L=168)   629    228        0 (1129/1196-1189/1402)  51.3 W11-W19 N10-N21
      5 1612 1232 (N00W40 L=193)   981    173        2 (1557/1155-1657/1305) -83.7 W37-W42 S04-N05
      6 1741 1256 (S02W51 L=204)   323     64        1 (1719/1225-1763/1288) -90.0 W48-W52 S04-N00
      7  336 1227 (N32E42 L=111)   317     42        0 ( 308/1210- 365/1245) -21.8 E44-E39 N30-N33
      8 1708 1203 (S04W46 L=200)   284     48        0 (1696/1168-1719/1235)  56.3 W45-W48 S05-S02
      9 1783 1132 (S10W51 L=204)   820    133        2 (1719/1100-1840/1160) -31.0 W45-W56 S12-S06
     10  415 1091 (N22E36 L=117)   602    143        3 ( 374/1024- 444/1151) -71.6 E39-E34 N17-N26
     11 1860 1058 (S16W57 L=210)  1275    194        5 (1826/ 983-1901/1140)  48.8 W52-W64 S20-S12
     12 1729 1083 (S11W45 L=198)   328     56        1 (1708/1062-1762/1110) -21.8 W42-W47 S12-S09
     13  247  991 (N20E53 L=100)  1192    233        1 ( 213/ 903- 325/1076) -56.3 E56-E47 N13-N25
     14 1728 1016 (S15W43 L=196)   979    189        4 (1656/ 956-1785/1054) -45.0 W38-W48 S19-S10
     15  151  978 (N21E65 L= 88)   982    134        2 ( 114/ 912- 185/1032) -45.0 E71-E61 N16-N24
     16 1639  988 (S14W36 L=189)   267     76        0 (1628/ 957-1656/1026)  63.4 W34-W37 S15-S11
     17 1040  915 (S02E02 L=151)  1245    284        4 ( 935/ 801-1113/1008) -74.1 E05-W00 S09-N05
     18 1556  937 (S14W29 L=182)   416    108        1 (1539/ 868-1575/ 986)  56.3 W26-W30 S17-S11
     19 1746  934 (S20W43 L=196)   317     68        2 (1723/ 893-1767/ 969) -90.0 W41-W45 S22-S17
     20  475  916 (N11E35 L=118)   346     91        0 ( 435/ 890- 507/ 948)   9.5 E38-E32 N09-N12
     21 1605  905 (S17W31 L=185)   471     95        5 (1565/ 870-1650/ 928)   0.0 W28-W35 S19-S15
     22 1688  869 (S22W37 L=191)   457     76        1 (1656/ 837-1718/ 901) -63.4 W34-W39 S24-S20
     23 1857  721 (S38W56 L=210)   975    114        0 (1808/ 688-1890/ 768)  10.3 W49-W62 S39-S34
     24  871  575 (S17E21 L=133)  1672    491        3 ( 713/ 449-1047/ 745)  19.0 E34-E05 S21-S11
     25 1526  685 (S28W22 L=175)   279     76        0 (1490/ 672-1572/ 703) -33.7 W19-W25 S30-S26
     26  344  553 (S07E58 L= 95)  2880    433        6 ( 209/ 418- 520/ 690) -49.6 E66-E49 S18-N03
     27 1246  599 (S25W02 L=155)  1445    381        2 (1086/ 524-1409/ 688)   2.5 E09-W14 S27-S23
     28 1808  663 (S40W50 L=203)   408     48        0 (1778/ 646-1834/ 678) -18.4 W45-W54 S41-S37
     29  498  547 (S10E45 L=108)   903    239        2 ( 442/ 463- 565/ 651) -90.0 E48-E42 S16-S03
     30  936  423 (S28E23 L=131)   351    105        0 ( 887/ 393- 985/ 454)   7.1 E26-E18 S29-S26
     31  739  382 (S26E37 L=116)   372    123        1 ( 711/ 344- 777/ 445)  81.9 E38-E35 S28-S21
     32  648  378 (S24E44 L=110)   415     90        1 ( 627/ 325- 666/ 416)  50.2 E46-E41 S27-S21
  

    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