Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1563 (N43E02 L=156)   310     60        1 ( 839/1548- 904/1581) -21.8 E04-W01 N41-N45
      2 1741 1487 (N20W66 L=224)  3074    455        8 (1645/1422-1830/1544) -21.4 W60-W74 N13-N26
      3 1375 1341 (N19W28 L=186)   473    153        2 (1321/1286-1433/1370)   6.3 W26-W31 N15-N22
      4  368 1274 (N30E46 L=111)   413    116        0 ( 323/1258- 412/1285)   6.3 E51-E41 N28-N31
      5  798 1122 (N15E13 L=145)   429    132        0 ( 778/1047- 819/1181) -83.7 E13-E12 N11-N19
      6 1266 1047 (N04W15 L=172)   247     89        1 (1220/1032-1304/1069) -11.3 W12-W17 N02-N06
      7 1843  917 (S16W60 L=217)   571    163        4 (1803/ 864-1864/ 953) -45.0 W55-W64 S20-S12
      8 1288  922 (S04W14 L=172)   588    145        2 (1206/ 896-1352/ 947) -24.0 W10-W18 S07-S01
      9 1330  657 (S21W14 L=172)  1203    368        3 (1248/ 511-1395/ 811)  57.1 W10-W19 S33-S10
     10 1702  778 (S21W45 L=202)   553     99        1 (1671/ 755-1735/ 806)   0.0 W42-W49 S23-S18
     11  954  529 (S23E13 L=144)   393    171        0 ( 943/ 460- 969/ 615)  70.0 E12-E14 S29-S18
     12  376  464 (S21E64 L= 94)   581     99        2 ( 354/ 434- 404/ 506)  59.0 E63-E63 S24-S18
     13 1185  474 (S31W02 L=159)   460     74        1 (1140/ 454-1223/ 500)  11.3 E01-W04 S34-S29
     14  483  450 (S23E53 L=105)   843    171        3 ( 432/ 421- 529/ 489)  13.0 E55-E50 S26-S20
  

    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