Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  421 1602 (N13E61 L=190)  4664    560       12 ( 306/1502- 579/1707)  57.1 147-E41 N10-S-2
      2 1578 1634 (N52W28 L=278)   427     39        1 (1554/1618-1602/1653)   0.0 W24-W31 N52-N53
      3  772 1577 (N19E33 L=218)   455    114        0 ( 756/1526- 787/1627) -66.8 E37-E29 N17-N22
      4  647 1502 (N12E37 L=214)   448     80        2 ( 606/1474- 675/1534)  63.4 E41-E34 N11-N13
      5 1189 1440 (N23E02 L=248)   809    157        1 (1155/1375-1230/1524) -41.2 E07-W02 N20-N27
      6  832 1431 (N12E23 L=228)   329     65        0 ( 796/1407- 872/1466)  71.6 E26-E20 N12-N13
      7  210 1226 (S13E63 L=188) 10206   1094       10 ( 109/1084- 308/1424)  23.1 147-E49 S20-S-2
      8  742 1326 (N04E24 L=226)   260     73        1 ( 723/1281- 759/1363) -45.0 E27-E22 N02-N06
      9  651 1282 (S01E28 L=222)   581     98        2 ( 599/1252- 698/1305)   9.5 E32-E25 S01-S01
     10 1429 1283 (N20W17 L=268)   411    119        0 (1388/1250-1472/1304)  18.4 W14-W21 N20-N20
     11 1097 1216 (N07E01 L=250)   962    243        4 (1024/1130-1162/1292) -33.7 E07-W05 N04-N09
     12  427 1153 (S13E40 L=210)  2758    793        3 ( 267/1035- 576/1249)  36.0 E57-E27 S16-S11
     13  980 1121 (S01E05 L=246)   636    211        0 ( 913/1088-1095/1185)  11.3 E10-W02 S00-N00
     14 1413 1119 (N10W20 L=270)   200     50        1 (1394/1098-1436/1147)  90.0 W18-W22 N10-N11
     15 1851 1102 (N24W58 L=308)   386     55        1 (1824/1084-1871/1120)   9.5 W54-W61 N24-N24
     16  600 1089 (S13E26 L=224)   380     65        1 ( 563/1054- 633/1113)  21.8 E29-E23 S14-S12
     17  219 1016 (S26E58 L=193)   594    162        1 ( 174/ 985- 258/1047)   5.2 E64-E53 S27-S24
     18  627  953 (S20E22 L=229)   240     60        0 ( 608/ 925- 642/ 988) -76.0 E24-E20 S21-S18
     19  551  912 (S24E26 L=224)   870    202        5 ( 509/ 840- 589/ 986) -83.7 E31-E22 S27-S21
     20  875  934 (S14E06 L=245)   332     72        2 ( 840/ 906- 906/ 969) -14.0 E09-E03 S15-S13
     21  819  883 (S19E08 L=243)   336     85        0 ( 783/ 849- 858/ 906)  59.0 E11-E05 S20-S18
     22  843  761 (S25E03 L=247)   463    100        0 ( 787/ 733- 894/ 794)  -8.1 E08-W01 S25-S25
     23 1290  775 (S12W22 L=273)   264     62        1 (1259/ 753-1328/ 794)  53.1 W20-W25 S12-S12
     24  241  748 (S42E58 L=192)   649    130        1 ( 217/ 712- 275/ 777)  32.0 E61-E54 S44-S41
     25 1139  647 (S23W18 L=269)   366    108        1 (1083/ 623-1186/ 682)  45.0 W14-W22 S23-S23
     26 1797  618 (S04W68 L=318)   878    134        4 (1769/ 586-1822/ 650) -76.0 W62-W75 S04-S03
     27 1609  536 (S14W54 L=305)   856    140        1 (1569/ 481-1644/ 599) -63.4 W47-W61 S16-S13
     28  733  446 (S49E01 L=250)   341     63        1 ( 715/ 421- 753/ 478) -45.0 E04-W02 S50-S47
     29 1078  365 (S42W30 L=281)  1795    277        4 ( 978/ 304-1195/ 444)  53.1 W18-W44 S42-S40
     30  905  351 (S49W20 L=270)   920    167        1 ( 855/ 311- 982/ 408)  -3.6 W12-W29 S49-S47
  

    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