Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1624 1651 (N34W67 L=315)  1016     81        1 (1586/1628-1671/1668)  -3.4 W60-W77 N32-N35
      2  381 1546 (N47E55 L=193)  2207    272        3 ( 340/1426- 418/1657) -22.5 E87-E44 N38-N55
      3  774 1565 (N44E11 L=236)   284     50        0 ( 743/1545- 803/1587) -38.7 E13-E08 N42-N46
      4 1359 1432 (N26W29 L=277)   407    116        3 (1298/1414-1422/1450) -14.0 W24-W33 N23-N27
      5  604 1402 (N35E25 L=222)  1708    402        3 ( 417/1360- 778/1426)  -9.2 E42-E11 N29-N37
      6 1057 1404 (N29W08 L=255)   459    186        0 ( 977/1386-1153/1421) -20.0 W02-W14 N26-N30
      7 1284 1228 (N15W19 L=267)   907    235        5 (1237/1100-1312/1315)  85.9 W16-W21 N06-N20
      8 1632 1258 (N10W44 L=292)   768    189        0 (1538/1209-1708/1284) -30.3 W37-W49 N06-N13
      9  204  999 (N12E62 L=186)  1239    227        1 ( 176/ 906- 229/1112)  76.0 E65-E58 N06-N18
     10 1907 1009 (S10W69 L=316)  1293    118        5 (1885/ 939-1925/1067) -76.0 W65-W72 S14-S06
     11  123 1002 (N12E75 L=172)  1485     61        4 (  89/ 978- 156/1027) -90.0 E89-E68 N10-N13
     12  724  813 (S03E21 L=226)   498    156        2 ( 674/ 775- 797/ 840) -14.0 E24-E16 S05-S01
     13  214  643 (S11E71 L=176)  4859    321        5 ( 149/ 537- 279/ 761) -70.3 E86-E64 S17-S02
     14 1746  716 (S25W49 L=296)   503     83        2 (1724/ 682-1769/ 755) -45.0 W46-W52 S28-S21
     15  514  692 (S09E38 L=210)   459    131        0 ( 490/ 655- 534/ 751) -90.0 E40-E36 S10-S04
     16  599  644 (S12E33 L=215)  1396    354        6 ( 540/ 580- 659/ 714)  26.6 E37-E27 S16-S08
     17 1649  641 (S28W40 L=287)   496    103        0 (1592/ 625-1691/ 664) -12.5 W34-W43 S29-S26
     18  358  476 (S22E62 L=185)  2026    233        1 ( 336/ 373- 377/ 587)  34.8 E77-E53 S30-S14
     19  721  525 (S22E27 L=220)  1380    322        3 ( 632/ 454- 843/ 573)  15.5 E36-E18 S25-S18
     20  778  496 (S24E24 L=223)   351     92        1 ( 733/ 477- 821/ 518)   0.0 E27-E21 S25-S22
     21 1713  470 (S44W56 L=303)   950     53        2 (1688/ 444-1739/ 505) -33.7 W50-W63 S46-S40
     22  993  165 (S57E25 L=223)   672     46        1 ( 963/ 147-1026/ 192)   0.0 E30-E21 S59-S53
  

    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