Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1337 1764 (N50E03 L=274)   466     66        0 (1304/1747-1373/1779)   9.5 E06-W00 N47-N52
      2  534 1680 (N20E53 L=224)   909    135        1 ( 487/1648- 592/1700)  39.8 E56-E48 N16-N21
      3  816 1488 (N14E25 L=252)   731    297        1 ( 775/1380- 861/1620) -45.0 E31-E18 N08-N21
      4  196 1238 (S13E64 L=213)  4065    645       17 ( 124/1106- 305/1375)  80.0 E71-E56 S20-S03
      5  675 1005 (S17E20 L=257)   711    248        1 ( 571/ 972- 809/1035)  14.9 E26-E11 S19-S14
      6  212  936 (S31E55 L=222)  1926    316        4 ( 123/ 864- 272/ 990)  -3.6 E64-E48 S34-S26
      7  365  951 (S27E41 L=236)   459    148        0 ( 317/ 934- 435/ 983)  24.0 E44-E35 S28-S23
      8 1348  858 (S07W23 L=299)   696    180        1 (1293/ 770-1388/ 932) -37.9 W17-W26 S11-S04
      9  938  825 (S20W00 L=277)  1191    426        0 ( 747/ 727-1134/ 903)  13.5 E11-W14 S25-S16
     10  497  831 (S31E29 L=248)   696    187        1 ( 425/ 797- 564/ 883)   0.0 E34-E23 S32-S29
     11 1732  623 (S07W59 L=336)   438     78        1 (1703/ 587-1760/ 663)  80.5 W57-W60 S10-S04
     12 1329  615 (S21W30 L=307)   385     99        0 (1289/ 575-1362/ 648)  -8.1 W26-W33 S22-S19
     13  993  517 (S37W14 L=291)  1001    259        2 ( 868/ 460-1114/ 551)  11.9 W05-W24 S40-S34
  

    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