Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1290 1451 (N23W29 L= 16)   209     40        0 (1272/1428-1306/1472)  14.0 W26-W30 N22-N24
      2 1085 1401 (N26W14 L=  2)   518    162        1 (1008/1385-1157/1420) -29.1 W09-W18 N23-N28
      3  580 1376 (N39E20 L=328)   287     70        0 ( 548/1357- 612/1399) -21.8 E22-E17 N37-N41
      4 1594 1337 (N08W43 L= 31)   322     35        1 (1567/1319-1622/1359) -45.0 W41-W45 N06-N09
      5 1507 1206 (N04W33 L= 20)   410     83        1 (1458/1189-1542/1234)   0.0 W29-W35 N02-N05
      6  461 1123 (N26E33 L=315)  1458    281        4 ( 337/1085- 585/1157) -22.8 E43-E24 N21-N29
      7  175  954 (N21E64 L=283)  1574    189        1 (  93/ 924- 260/ 983)  -4.2 E81-E54 N18-N23
      8 1221  805 (S10W05 L=353)   884    230        0 (1152/ 724-1287/ 901)  28.6 W00-W11 S13-S06
      9 1536  835 (S17W25 L= 13)   329    104        0 (1497/ 808-1585/ 859)   0.0 W22-W28 S18-S16
     10  384  795 (N09E46 L=302)   276    104        0 ( 364/ 742- 409/ 840)  80.5 E47-E44 N05-N11
     11  974  585 (S17E15 L=333)   499    127        0 ( 928/ 529-1022/ 637)  26.6 E18-E10 S19-S14
     12  713  566 (S11E31 L=317)   321    130        2 ( 687/ 518- 757/ 612) -81.9 E32-E28 S15-S08
     13 1712  570 (S42W38 L= 26)   639     67        1 (1681/ 542-1751/ 591)   0.0 W34-W42 S43-S39
     14  806  529 (S16E26 L=321)   242     55        1 ( 783/ 500- 835/ 553)  31.0 E28-E23 S17-S14
     15 1581  458 (S45W24 L= 11)   332     42        1 (1565/ 437-1596/ 489)  63.4 W21-W25 S47-S42
     16  963  426 (S26E21 L=327)   280     59        2 ( 941/ 395- 981/ 461)  45.0 E22-E18 S28-S24
     17  489  344 (S21E60 L=288)  1058    129        3 ( 473/ 282- 508/ 414)  34.7 E68-E54 S25-S16
     18 1044  245 (S42E26 L=322)   629     75        0 (1027/ 205-1061/ 299)  56.3 E29-E22 S46-S37
     19 1325  226 (S56E07 L=341)  1467    250        1 (1237/ 196-1415/ 271) -16.4 E15-W03 S60-S50
     20  984  183 (S46E36 L=312)   667     67        1 ( 952/ 157-1014/ 206) -36.9 E40-E31 S48-S43
  

    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