Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1374 1793 (N45W59 L=240)   415     43        0 (1343/1776-1399/1812)   0.0 W54-W63 N43-N45
      2 1008 1673 (N48W17 L=198)  2452    501        6 ( 848/1581-1245/1789)   2.5 W01-W46 N44-N50
      3  811 1448 (N37E05 L=176)   256     57        0 ( 777/1435- 848/1461) -21.8 E07-E02 N35-N38
      4 1028 1397 (N29W08 L=189)   592    143        1 ( 986/1346-1086/1445)  14.0 W05-W13 N25-N30
      5 1301 1251 (N14W21 L=202)  1131    266        1 (1212/1165-1380/1363) -75.1 W18-W24 N07-N22
      6  265 1274 (N35E55 L=126)   720    100        1 ( 244/1221- 292/1319)  63.4 E57-E52 N31-N37
      7  207 1018 (N19E60 L=121)  1522    265        2 ( 184/ 908- 239/1156) -82.4 E63-E56 N12-N27
      8  825 1075 (N14E11 L=170)   269     83        1 ( 800/1049- 856/1110) -76.0 E12-E09 N11-N15
      9 1126  896 (S02W03 L=184)   385    116        1 (1104/ 845-1154/ 949)  45.0 W01-W05 S05-N00
     10 1878  862 (S24W61 L=242)  1319    131        2 (1844/ 803-1915/ 927) -59.0 W55-W69 S28-S18
     11  631  823 (N02E28 L=153)   394    106        1 ( 612/ 768- 649/ 875)  59.0 E29-E25 N00-N05
     12  193  759 (N04E68 L=113)  4231    294       11 ( 136/ 648- 251/ 871) -72.9 E76-E61 S03-N10
     13 1391  758 (S16W17 L=198)   413    104        0 (1355/ 716-1423/ 805)  33.7 W13-W19 S18-S13
     14  284  715 (N00E58 L=123)   776     81        1 ( 254/ 689- 320/ 748) -45.0 E61-E54 S01-N02
     15  518  693 (S04E38 L=143)   320     78        0 ( 494/ 653- 539/ 733) -90.0 E39-E36 S06-N00
     16 1554  589 (S32W27 L=208)   391     99        0 (1514/ 557-1590/ 623)  18.4 W23-W29 S32-S30
     17  940  498 (S23E17 L=164)  1031    245        2 ( 887/ 395- 995/ 604)  49.8 E22-E11 S29-S16
     18  541  497 (S16E44 L=137)   642    107        2 ( 507/ 461- 570/ 540)  59.0 E46-E41 S18-S13
     19  402  491 (S15E56 L=125)   936     90        2 ( 363/ 447- 430/ 529) -71.6 E59-E53 S18-S12
     20  446  425 (S20E56 L=125)  5286    528       11 ( 293/ 345- 675/ 522) -22.5 E72-E36 S26-S12
     21  591  364 (S26E47 L=134)   446     67        1 ( 574/ 327- 617/ 391)  35.5 E50-E43 S29-S24
     22 1058  309 (S40E16 L=165)   496     37        0 (1026/ 291-1092/ 327) -36.9 E17-E13 S41-S37
     23 1231  222 (S54E06 L=175)  1666    215        4 (1134/ 179-1329/ 265)   2.7 E17-W04 S56-S51
  

    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