Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1177 1672 (N45W27 L=235)   883    155        1 (1120/1634-1254/1707) -41.2 W22-W31 N40-N48
      2  656 1580 (N48E21 L=187)  1783    427        4 ( 487/1486- 826/1640) -19.9 E42-E06 N38-N53
      3 1613 1539 (N27W56 L=264)   813     90        2 (1564/1508-1649/1573)   0.0 W50-W61 N24-N28
      4 1135 1508 (N34W16 L=225)  1389    310        4 (1001/1479-1292/1529) -15.9 W06-W27 N30-N37
      5 1772 1432 (N17W66 L=274)  1489    114        3 (1719/1391-1812/1465) -45.0 W60-W72 N13-N19
      6  566 1400 (N36E28 L=180)   302     80        1 ( 534/1385- 608/1418) -15.9 E31-E24 N34-N37
      7 1787 1269 (N07W59 L=268)   367     50        0 (1760/1249-1806/1289) -26.6 W56-W61 N05-N08
      8  527 1019 (N12E32 L=177)   308     97        1 ( 486/ 993- 579/1035)   9.5 E34-E28 N10-N12
      9  339  974 (N11E47 L=161)   351     90        0 ( 322/ 942- 368/1019) -68.2 E48-E45 N08-N13
     10  161  838 (N03E71 L=138)  1822    185        5 ( 124/ 749- 188/ 913) -71.6 E76-E65 S02-N07
     11 1308  679 (S19W13 L=221)  2209    498        7 (1223/ 577-1431/ 885)  69.8 W06-W21 S26-S06
     12  802  868 (S00E16 L=193)   306     73        1 ( 762/ 843- 839/ 883)   0.0 E17-E13 S01-N01
     13 1154  827 (S07W05 L=213)   335     88        0 (1121/ 795-1178/ 870)  36.9 W02-W06 S09-S05
     14  402  803 (S00E44 L=164)   918    229        3 ( 295/ 761- 500/ 840) -17.4 E53-E37 S03-N02
     15  212  804 (N01E64 L=145)   422     64        0 ( 197/ 773- 227/ 836) -71.6 E65-E62 N00-N03
     16 1120  750 (S12W02 L=210)   317    118        1 (1080/ 725-1162/ 795)  31.0 W00-W05 S13-S09
     17 1571  721 (S21W32 L=240)   490     90        0 (1529/ 695-1610/ 745)   9.5 W28-W35 S22-S20
     18 1195  703 (S16W06 L=214)   403    118        0 (1141/ 682-1239/ 743)   8.1 W02-W09 S16-S13
     19  586  648 (S11E34 L=175)   339     99        2 ( 561/ 612- 606/ 692)  45.0 E36-E31 S13-S08
     20  490  642 (S11E41 L=167)   303    102        0 ( 447/ 627- 542/ 659)  -8.1 E44-E37 S11-S09
     21  733  411 (S29E31 L=177)   591    122        0 ( 700/ 360- 778/ 453)  33.7 E36-E26 S32-S26
  

    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