Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1366 1801 (N49W60 L=329)   867     85        0 (1332/1763-1402/1830)   6.0 W50-W69 N47-N50
      2 1498 1733 (N40W64 L=333)  1602    135        3 (1455/1690-1548/1778)  69.4 W56-W69 N36-N44
      3 1484 1633 (N35W51 L=320)   764    180        0 (1425/1556-1522/1682)  78.7 W47-W54 N29-N39
      4 1440 1603 (N34W45 L=314)   419    108        0 (1408/1562-1480/1644)  80.5 W43-W47 N30-N36
      5  591 1487 (N43E26 L=243)   330     82        0 ( 558/1472- 637/1503) -20.6 E29-E21 N40-N44
      6 1748 1352 (N11W59 L=328)   499     23        0 (1728/1330-1768/1377) -76.0 W56-W61 N09-N13
      7 1096 1222 (N17W08 L=277)  1028    387        0 ( 923/1159-1259/1272) -31.4 E02-W16 N10-N22
      8  571 1150 (N21E28 L=241)   234     91        1 ( 556/1103- 596/1185)  59.0 E28-E25 N17-N22
      9 1611 1035 (S03W38 L=307)   828    230        0 (1563/ 940-1653/1142)  45.0 W32-W42 S08-N02
     10  917 1089 (N12E05 L=263)   217    100        0 ( 861/1071- 959/1102) -31.0 E08-E03 N10-N13
     11 1903  946 (S16W68 L=337)  2188    251        3 (1869/ 841-1929/1028)  80.5 W62-W76 S23-S11
     12 1580  488 (S40W34 L=303)   356     49        1 (1562/ 464-1601/ 522)  90.0 W31-W36 S41-S36
     13 1459  359 (S48W23 L=292)   428     48        2 (1440/ 334-1485/ 385)  90.0 W21-W26 S50-S45
  

    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