Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1187 1512 (N27W25 L=313)   421     72        1 (1154/1482-1226/1535)   0.0 W22-W27 N25-N29
      2 1583 1517 (N16W51 L=339)   847    114        1 (1517/1492-1646/1534) -20.0 W45-W56 N13-N18
      3  234 1328 (N43E56 L=232)   653     91        1 ( 196/1297- 277/1352)   5.2 E61-E49 N41-N44
      4 1254 1264 (N12W19 L=307)  1124    419        1 (1097/1168-1422/1321) -41.2 W10-W26 N02-N17
      5 1712 1266 (S01W49 L=337)   756    149        1 (1643/1223-1761/1292)  -5.2 W42-W53 S03-N00
      6 1833 1179 (S10W57 L=345)  1443    219        3 (1804/1071-1893/1253)  68.2 W52-W67 S15-S05
      7 1778 1176 (S08W52 L=339)   301     72        1 (1763/1143-1790/1207)  76.0 W49-W53 S10-S06
      8  755 1117 (N17E13 L=275)   585    146        1 ( 727/1051- 790/1183)  83.7 E14-E10 N12-N21
      9 1693  786 (S27W36 L=324)  2598    598        3 (1538/ 547-1829/ 989)  30.1 W20-W51 S39-S19
     10  663  881 (N06E24 L=264)   623    122        3 ( 613/ 840- 727/ 917) -23.2 E27-E20 N03-N08
     11  246  884 (N16E56 L=232)   314     47        0 ( 230/ 864- 266/ 916) -90.0 E57-E53 N14-N17
     12 1321  678 (S22W08 L=295)   587    155        3 (1268/ 625-1377/ 742)  24.0 W03-W12 S24-S19
     13  679  577 (S11E32 L=256)  1332    365        1 ( 609/ 521- 758/ 675) -79.7 E35-E26 S15-S04
     14  353  468 (S11E64 L=224)  4898    404       14 ( 249/ 336- 486/ 618)  76.0 E74-E54 S21-S01
     15 1176  521 (S27E05 L=282)   215     49        1 (1150/ 502-1202/ 541)   0.0 E07-E03 S28-S26
     16  514  508 (S11E46 L=241)   307     37        0 ( 489/ 486- 539/ 529) -71.6 E48-E45 S12-S09
     17  478  435 (S15E54 L=234)   333     70        2 ( 458/ 400- 502/ 465)  59.0 E55-E51 S17-S12
     18  581  414 (S18E47 L=241)   458     96        2 ( 548/ 385- 618/ 443) -36.9 E50-E43 S20-S16
     19 1405  381 (S46W06 L=294)   280     74        0 (1380/ 350-1425/ 416)  33.7 W02-W08 S47-S43
     20  979  306 (S36E27 L=261)   979    115        2 ( 930/ 267-1032/ 347)   0.0 E31-E21 S39-S33
  

    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