Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1663 (N30E47 L=200)   813    197        1 ( 533/1596- 654/1702) -10.6 E55-E39 N26-N32
      2  901 1576 (N30E21 L=226)  1302    270        7 ( 821/1467- 988/1670) -26.6 E30-E12 N23-N35
      3  403 1611 (N22E64 L=183)   669     51        2 ( 381/1583- 429/1640)  90.0 E67-E60 N20-N24
      4  539 1530 (N20E45 L=202)   365     96        0 ( 491/1512- 574/1551)  45.0 E47-E42 N17-N21
      5  774 1329 (N12E21 L=226)   392    118        2 ( 717/1304- 835/1349)   0.0 E25-E17 N10-N13
      6 1815 1234 (N28W56 L=303)   867    155        1 (1754/1185-1875/1272)  -3.6 W48-W65 N25-N29
      7 1367 1220 (N17W17 L=264)   267    100        1 (1346/1170-1387/1261) -51.3 W15-W19 N14-N19
      8 1442 1192 (N17W23 L=270)   531    121        4 (1411/1143-1486/1254)  90.0 W20-W25 N13-N20
      9 1240  782 (S11W18 L=265)   861    157        3 (1153/ 748-1302/ 833)  26.6 W13-W22 S14-S07
     10 1291  647 (S18W25 L=272)   429    180        1 (1204/ 625-1365/ 677)  33.7 W19-W28 S21-S15
     11  588  591 (S37E22 L=225)   312     59        1 ( 564/ 567- 611/ 616) -26.6 E24-E19 S38-S35
     12 1355  571 (S22W32 L=279)   236     59        1 (1332/ 548-1382/ 593)  45.0 W30-W33 S22-S20
     13  603  362 (S56E22 L=225)   691     78        2 ( 568/ 342- 644/ 394)  21.8 E26-E16 S58-S53
     14 1444  315 (S36W56 L=303)   849    121        0 (1379/ 295-1500/ 339)  15.3 W49-W60 S38-S33
     15 1305  262 (S44W49 L=296)   496     72        1 (1273/ 242-1342/ 281)  -5.7 W43-W54 S45-S42
  

    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