Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  815 1763 (N33E39 L= 21)  2637    548        3 ( 772/1637- 860/1914) -41.2 E54-E29 N25-N46
      2 1519 1555 (N42W17 L= 78)   311     51        0 (1506/1526-1535/1581) -78.7 W16-W18 N39-N44
      3 1740 1392 (N39W40 L=100)  3551    377        5 (1565/1249-1826/1525) -19.8 W22-W49 N31-N43
      4  476 1200 (S09E38 L= 23)   307    104        0 ( 432/1161- 505/1249)  71.6 E39-E36 S12-S06
      5  908 1226 (N03E12 L= 48)   303    109        1 ( 844/1210- 962/1243)  23.2 E15-E08 N00-N04
      6 1556 1096 (N14W29 L= 89)   745    211        1 (1512/1031-1615/1146)  69.4 W26-W33 N09-N17
      7 1464 1101 (N11W23 L= 83)   265     74        0 (1444/1060-1477/1139) -36.9 W20-W24 N08-N13
      8  313 1065 (S21E47 L= 13)   452     74        1 ( 288/1029- 329/1108) -63.4 E49-E45 S22-S18
      9  260  906 (S31E49 L= 11)   360    115        0 ( 232/ 878- 296/ 937)  39.8 E52-E46 S33-S28
     10  502  896 (S26E29 L= 31)   569    176        0 ( 436/ 877- 587/ 914)  26.6 E33-E23 S27-S22
     11  717  763 (S28E11 L= 49)   435     91        1 ( 662/ 736- 761/ 795)  45.0 E14-E08 S31-S25
     12  504  671 (S40E25 L= 35)   826    188        2 ( 422/ 640- 582/ 706)  19.7 E32-E18 S43-S37
     13 1367  274 (S37W53 L=113)   517     75        0 (1325/ 260-1406/ 288)  53.1 W50-W55 S38-S34
  

    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