Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  893 1908 (N47E54 L=220)   596     57        1 ( 871/1878- 919/1927) -26.6 E59-E48 N44-N49
      2  770 1833 (N36E51 L=222)   939     78        4 ( 747/1787- 789/1879) -36.0 E58-E46 N32-N40
      3 1510 1698 (N55W14 L=287)   556     66        0 (1472/1679-1545/1715)  14.0 W09-W17 N53-N56
      4 1064 1646 (N32E18 L=256)   561    120        1 (1046/1588-1083/1706) -60.9 E20-E15 N27-N36
      5 1330 1534 (N33W03 L=277)  1335    337        2 (1253/1378-1399/1665) -43.2 E06-W10 N24-N40
      6 1635 1598 (N52W29 L=303)   509     59        0 (1615/1561-1662/1621)  53.1 W26-W33 N47-N55
      7 1431 1099 (N10W21 L=294)  1872    515        4 (1331/ 885-1492/1299) -76.5 W15-W24 S04-N21
      8  458 1171 (S12E38 L=235)   601    104        1 ( 429/1109- 483/1217) -45.0 E41-E35 S15-S09
      9  714 1026 (S14E18 L=256)   265    111        0 ( 690/ 983- 756/1060)  80.5 E18-E15 S17-S11
     10  603  980 (S20E24 L=250)   319     99        0 ( 567/ 948- 639/1020) -18.4 E26-E20 S20-S18
     11  597  806 (S30E20 L=253)   357    114        0 ( 558/ 759- 636/ 853)  66.8 E22-E18 S33-S26
     12  719  714 (S32E09 L=264)   291     81        1 ( 697/ 680- 731/ 764) -80.5 E10-E07 S34-S28
     13 1283  418 (S31W39 L=313)   602    112        0 (1228/ 403-1341/ 446)  11.3 W33-W43 S33-S29
     14  976  424 (S42W19 L=293)   660    222        0 ( 866/ 404-1074/ 443)  17.4 W10-W26 S45-S38
     15 1553  308 (S27W72 L=345)  1296    125        1 (1493/ 289-1615/ 334)  35.0 W65-W78 S30-S23
  

    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