Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  833 1861 (N40E50 L=347)  1657    122        3 ( 779/1803- 873/1900) -15.5 E59-E41 N36-N43
      2  407 1600 (N11E61 L=336)  1418    175        2 ( 370/1533- 453/1683) -65.6 E65-E57 N06-N17
      3  345 1620 (N12E72 L=325)   719     77        1 ( 332/1584- 368/1654) -51.3 E75-E67 N09-N14
      4 1208 1583 (N32E06 L= 30)   531     88        2 (1182/1533-1237/1628) -66.8 E08-E04 N28-N35
      5  451 1528 (N08E52 L=345)  2322    330        0 ( 332/1447- 582/1621)  45.0 E61-E46 N01-N16
      6 1537 1487 (N37W19 L= 56)   294     28        0 (1519/1462-1556/1508)  76.0 W17-W20 N35-N39
      7  572 1379 (N02E37 L=  0)   252     72        0 ( 554/1356- 602/1411) -33.7 E38-E34 N00-N03
      8  240 1159 (S18E58 L=339)   868    113        2 ( 186/1123- 281/1195)  26.6 E64-E53 S20-S15
      9  558  858 (S28E24 L= 13)   960    198        3 ( 475/ 807- 654/ 921)  45.0 E29-E18 S33-S22
     10 1177  821 (S13W14 L= 51)   286    197        1 (1085/ 791-1269/ 841)  14.0 W08-W20 S15-S11
     11 1384  634 (S16W33 L= 70)  1280    279        4 (1282/ 576-1486/ 720)  66.8 W29-W36 S22-S08
     12 1093  664 (S24W15 L= 52)   387    194        0 (1008/ 625-1169/ 679)  16.7 W10-W20 S26-S22
     13  858  635 (S33W02 L= 39)   472    134        0 ( 792/ 617- 921/ 657)  35.5 E02-W06 S35-S30
     14  923  484 (S40W12 L= 49)  1681    321        2 ( 795/ 416-1068/ 565)  58.6 W05-W18 S49-S30
     15 1206  198 (S47W57 L= 94)   709     78        1 (1183/ 159-1229/ 237) -13.2 W49-W66 S49-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