Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1125 1624 (N40W25 L=128)   999    179        2 (1082/1566-1173/1710)  55.0 W20-W31 N35-N45
      2 1323 1676 (N38W42 L=145)   436     67        1 (1291/1653-1364/1695)   0.0 W38-W46 N36-N39
      3 1540 1655 (N30W59 L=161)   774     92        1 (1496/1628-1584/1679)   0.0 W52-W64 N28-N31
      4 1704 1546 (N19W66 L=169)   717    117        1 (1649/1517-1754/1575) -24.4 W61-W72 N16-N21
      5 1192 1412 (N26W20 L=123)  1056    258        3 (1113/1343-1285/1495) -69.0 W16-W23 N19-N32
      6 1742 1448 (N12W62 L=165)   821    111        0 (1709/1388-1765/1488) -90.0 W60-W65 N08-N15
      7  959 1297 (N24W02 L=105)   260     63        0 ( 932/1276- 992/1319) -45.0 W00-W04 N22-N26
      8  606 1218 (N27E23 L= 80)   719    259        1 ( 524/1123- 688/1298) -57.3 E28-E18 N19-N33
      9  903 1085 (N13E06 L= 97)   249    120        0 ( 887/1035- 935/1141)  51.3 E07-E02 N10-N15
     10  248 1108 (N26E55 L= 48)   432     71        1 ( 232/1066- 266/1140) -76.0 E56-E52 N23-N27
     11 1135 1073 (N08W07 L=110)   383    195        0 (1077/1038-1215/1105) -35.5 W04-W11 N03-N09
     12 1320  999 (S01W16 L=119)   196     57        0 (1281/ 986-1351/1017) -14.0 W14-W18 S01-N00
     13  397  930 (N13E42 L= 61)   767    254        1 ( 336/ 857- 441/ 993)  63.4 E47-E38 N08-N16
     14 1900  880 (S25W64 L=166)  1971    244        4 (1845/ 784-1940/ 989)  37.6 W55-W72 S29-S19
     15  170  855 (N11E68 L= 35)  1264    176        0 ( 136/ 780- 202/ 925) -60.9 E72-E63 N06-N15
     16 1540  887 (S13W28 L=131)   317     65        0 (1514/ 862-1576/ 906)   0.0 W26-W30 S13-S10
     17  885  825 (S01E12 L= 91)   298     78        1 ( 865/ 777- 907/ 857) -90.0 E13-E10 S04-N00
     18 1705  815 (S22W40 L=143)   386    160        0 (1653/ 780-1729/ 844)  18.4 W35-W42 S24-S19
     19 1579  804 (S19W30 L=132)   265     70        0 (1564/ 770-1594/ 838) -90.0 W28-W30 S20-S16
     20 1346  782 (S14W14 L=117)   368     84        1 (1324/ 748-1369/ 826)  78.7 W12-W15 S15-S10
     21 1684  725 (S27W38 L=140)   480    107        0 (1648/ 686-1713/ 767)  33.7 W34-W40 S28-S24
     22 1417  741 (S18W17 L=120)   276     41        0 (1390/ 717-1438/ 758) -56.3 W15-W19 S19-S16
     23 1431  486 (S36W15 L=118)  2101    337        7 (1346/ 374-1552/ 604)  32.3 W06-W25 S42-S30
     24  681  504 (S17E34 L= 69)   754    172        2 ( 619/ 448- 733/ 578)  26.6 E40-E28 S19-S12
     25  547  457 (S18E45 L= 57)   579     91        1 ( 505/ 432- 591/ 490) -45.0 E47-E43 S20-S15
     26 1094  328 (S39E14 L= 89)  3690    648        5 ( 816/ 184-1340/ 434)   6.8 E44-W06 S45-S34
     27 1271  165 (S63E09 L= 94)   656     81        1 (1231/ 148-1315/ 184)  -5.2 E13-E02 S66-S60
  

    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