Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1442 1749 (N37W60 L=289)  1646    224        2 (1347/1710-1544/1778) -20.2 W48-W72 N33-N40
      2  922 1702 (N52W15 L=244)   270     73        0 ( 898/1662- 937/1730)  80.5 W13-W16 N48-N54
      3 1814 1409 (N07W69 L=298)  1890    291        3 (1727/1298-1875/1513) -75.1 W65-W74 N00-N15
      4 1561 1359 (N12W42 L=271)  1244    296        4 (1518/1220-1628/1487)  69.4 W39-W47 N03-N19
      5 1047 1097 (N11W03 L=232)   294    155        0 ( 996/1035-1073/1155) -83.7 W01-W03 N06-N15
      6  162 1127 (N29E67 L=161)   599     59        2 ( 124/1105- 193/1145)  -4.8 E74-E62 N27-N29
      7 1366 1082 (N02W21 L=250)   196     43        1 (1346/1059-1383/1100) -71.6 W20-W22 N00-N03
      8 1207  975 (N00W09 L=238)   895    300        0 (1134/ 852-1313/1033)  15.9 W02-W16 S05-N03
      9  223  919 (N16E59 L=169)   740    118        1 ( 179/ 876- 261/ 958) -35.5 E65-E55 N12-N18
     10 1568  893 (S13W30 L=259)   423    126        0 (1534/ 841-1617/ 924)  15.9 W26-W33 S15-S11
     11  200  835 (N11E64 L=165)   502     57        2 ( 178/ 806- 223/ 862) -45.0 E66-E61 N08-N12
     12 1583  815 (S19W30 L=258)   341     34        0 (1566/ 786-1603/ 842)  56.3 W28-W31 S20-S17
     13  965  793 (S05E09 L=220)   216     92        0 ( 932/ 761-1001/ 822) -68.2 E09-E07 S07-S02
     14 1053  791 (S07E04 L=225)   194    111        0 (1011/ 773-1106/ 817) -31.0 E05-W00 S08-S04
     15  228  725 (N04E64 L=164)   807    133        1 ( 172/ 704- 291/ 748)  -7.6 E72-E56 N02-N05
     16  682  653 (S07E29 L=200)   401     99        1 ( 665/ 608- 699/ 699)  71.6 E30-E27 S10-S04
     17  392  582 (S07E53 L=176)  1899    223        4 ( 317/ 500- 472/ 663) -65.6 E57-E46 S12-N00
     18 1828  630 (S41W58 L=286)   895     77        0 (1796/ 600-1861/ 658)   6.3 W50-W64 S43-S37
     19  625  612 (S09E34 L=195)   242     73        1 ( 606/ 573- 647/ 646)  78.7 E35-E32 S11-S06
     20 1084  582 (S20E07 L=222)   210     32        0 (1065/ 557-1106/ 604)  45.0 E08-E05 S21-S18
     21  407  449 (S16E59 L=169)  6581    299       11 ( 326/ 329- 508/ 561)  46.7 E77-E48 S24-S07
     22  492  534 (S11E47 L=182)   309     32        1 ( 473/ 512- 513/ 556)  56.3 E48-E44 S12-S09
     23 1257  477 (S32W01 L=230)   257     76        0 (1241/ 446-1284/ 514) -80.5 W00-W02 S34-S28
     24  629  356 (S26E46 L=183)  1828    344        4 ( 532/ 245- 756/ 492)  21.5 E67-E29 S33-S18
  

    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