Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1059 1757 (N46W05 L= 76)   423     48        0 (1026/1741-1092/1775)   0.0 W01-W07 N44-N47
      2 1091 1682 (N39W06 L= 77)   351     62        1 (1073/1650-1118/1718)  71.6 W04-W08 N36-N42
      3 1693 1548 (N30W54 L=125)  1861    254        3 (1582/1476-1795/1612) -20.2 W44-W65 N24-N34
      4  798 1573 (N32E15 L= 56)   759    129        0 ( 721/1530- 856/1604) -21.8 E20-E10 N28-N34
      5 1440 1475 (N24W29 L=100)   639    163        1 (1365/1438-1524/1498)  -4.8 W23-W35 N21-N25
      6 1652 1341 (N16W43 L=114)  1341    391        1 (1583/1144-1729/1471) -76.6 W39-W46 N03-N24
      7 1858 1284 (N13W63 L=134)  2456    245       10 (1805/1205-1925/1383) -45.0 W58-W72 N08-N18
      8  400 1048 (S00E40 L= 31)   427     81        1 ( 358/1015- 425/1069) -11.3 E43-E37 S01-N01
      9  195  859 (S10E61 L= 10)  4689    298       11 ( 125/ 711- 288/1008)  66.0 E71-E51 S18-N00
     10  423  669 (S23E43 L= 28)  3905    755        5 ( 303/ 374- 479/ 996)  34.9 E89-E34 S40-S03
     11 1168  929 (S09W08 L= 79)   212     91        0 (1127/ 917-1215/ 945) -11.3 W06-W11 S09-S07
     12  637  892 (S10E24 L= 47)   193     37        0 ( 618/ 870- 658/ 914)  33.7 E25-E22 S11-S08
     13  993  828 (S15E02 L= 69)   328    122        0 ( 956/ 780-1018/ 883) -56.3 E04-W00 S17-S11
     14 1250  841 (S14W13 L= 84)   224     95        0 (1199/ 810-1277/ 861) -21.8 W10-W15 S16-S12
     15  280  749 (S17E54 L= 17)  1087    208        4 ( 209/ 669- 332/ 793) -33.7 E61-E49 S22-S14
     16  862  691 (S23E11 L= 60)  1392    451        0 ( 710/ 650-1034/ 773)   2.9 E20-W00 S25-S17
     17 1485  538 (S33W33 L=104)   425     53        2 (1460/ 514-1512/ 570) -36.9 W31-W36 S35-S31
     18 1573  546 (S33W41 L=112)   451     72        0 (1537/ 525-1615/ 569)   8.1 W37-W44 S34-S31
     19 1236  443 (S40W15 L= 86)  1502    330        5 (1096/ 367-1388/ 522)  25.5 W04-W26 S45-S34
     20 1186  254 (S56W15 L= 86)   346     62        0 (1156/ 236-1210/ 279)  45.0 W11-W17 S57-S53
  

    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