Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1187 1690 (N48W24 L= 48)   591     95        2 (1155/1638-1209/1726)  81.9 W21-W26 N43-N50
      2 1581 1419 (N23W45 L= 69)   845    181        0 (1514/1351-1638/1472) -56.3 W41-W47 N18-N27
      3  252 1414 (N34E67 L=318)  1080    111        1 ( 225/1380- 294/1452) -10.0 E75-E58 N31-N36
      4 1417 1338 (N20W30 L= 54)   271    100        0 (1382/1302-1461/1363)  15.9 W26-W33 N18-N21
      5  664 1281 (N24E22 L=  2)   236     88        1 ( 625/1256- 701/1312) -38.7 E24-E19 N22-N26
      6 1342 1020 (N02W20 L= 44)   370    143        1 (1300/ 960-1385/1078)  45.0 W16-W23 S01-N05
      7 1112 1055 (N06W06 L= 30)   265     66        1 (1071/1039-1143/1076)  14.0 W03-W07 N05-N07
      8 1845  938 (S10W60 L= 84)  2672    293        6 (1795/ 831-1884/1025)  57.5 W54-W66 S15-S04
      9 1913  937 (S11W71 L= 96)   937     86        1 (1893/ 896-1931/ 974) -59.0 W67-W75 S13-S08
     10  302  841 (S02E52 L=332)   425    104        0 ( 273/ 800- 327/ 885) -51.3 E54-E50 S04-N01
     11 1055  825 (S07W00 L= 24)   215     76        0 (1018/ 813-1101/ 838) -14.0 E02-W02 S08-S06
     12  407  813 (S04E43 L=341)   277     61        3 ( 385/ 779- 432/ 835) -71.6 E44-E41 S05-S02
     13  244  718 (S10E62 L=322)  1966    334        3 ( 188/ 584- 318/ 811) -65.0 E67-E54 S18-S03
     14 1491  736 (S17W28 L= 52)   317    100        0 (1471/ 695-1515/ 779)  80.5 W26-W29 S20-S14
     15  763  665 (S15E20 L=  4)   405    170        1 ( 708/ 636- 808/ 712) -45.0 E23-E16 S16-S11
     16  332  645 (S14E55 L=330)   465    102        1 ( 299/ 622- 362/ 689) -21.8 E57-E51 S15-S11
     17  925  434 (S32E13 L= 11)  3883    868        4 ( 716/ 222-1309/ 674)  27.4 E40-W15 S49-S19
     18  848  603 (S20E15 L=  9)   446    166        0 ( 776/ 571- 887/ 658)  26.6 E20-E12 S21-S16
     19 1595  607 (S28W38 L= 62)   330     77        0 (1556/ 588-1631/ 627)   0.0 W34-W40 S28-S26
     20  586  474 (S27E38 L=346)  1903    500        6 ( 485/ 329- 672/ 612) -81.9 E46-E32 S38-S17
     21 1685  530 (S35W50 L= 74)  1109    111        3 (1615/ 501-1736/ 558)  -3.6 W41-W57 S37-S32
     22 1108  409 (S36E00 L= 24)   837    333        1 ( 979/ 383-1247/ 478)  11.3 E10-W10 S37-S32
  

    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